在 R ggplot 中绘制多列并使图例正确

Question

数据框架，有5列和51行，如下：

Var1	var2	我有一个
1990	2.2	4.1
1991	2.3	4.4

我想绘制绘制，因为多年的列是多年来每个VAR的趋势的列。

我尝试了：

lt <- c("VAR2" = "twodash", "VAR3" = "dotted", "VAR4" = "dashed", "VAR5" = "solid")

ggp1 <- ggplot(DATAFRAME, aes(VAR1)) +       # Create ggplot2 plot
  geom_line(aes(y = VAR2, linetype = "twodash", group=1, )) +
  geom_line(aes(y = VAR3, linetype = "dotted", group=1)) +
  geom_line(aes(y = VAR4, linetype = "dashed", group=1)) + 
  geom_line(aes(y = VAR5, linetype = "solid", group=1)) +
  labs(y = "number of parties in government", x= "year", lintype = "Legend")+
  scale_linetype_manual(values = lt) 
ggp1 

但是它不起作用。我该怎么办？

谢谢大家的帮助。

Answer 1

这应该做到：

library(ggplot2)
DATAFRAME <- data.frame(
  VAR1 = 1:20, 
  VAR2 = runif(20,0,1), 
  VAR3 = runif(20,1,2), 
  VAR4 = runif(20,2,3), 
  VAR5 = runif(20,3,4)
)


lt <- c("VAR2" = "twodash", "VAR3" = "dotted", "VAR4" = "dashed", "VAR5" = "solid")

ggplot(DATAFRAME, aes(VAR1)) +       # Create ggplot2 plot
  geom_line(aes(y = VAR2, linetype = "VAR2", group=1, )) +
  geom_line(aes(y = VAR3, linetype = "VAR3", group=1)) +
  geom_line(aes(y = VAR4, linetype = "VAR4", group=1)) + 
  geom_line(aes(y = VAR5, linetype = "VAR5", group=1)) +
  labs(y = "number of parties in government", x= "year", lintype = "Legend") +
  scale_linetype_manual(values = unname(lt) )

这里的技巧是，当您以这种方式创建美学时（例如， lineType =“ var2” var2 “ 或 lineType =“ twodash” ，ggplot2将它们变成一个因素，并按字母顺序排序级别。在您的原始代码中，级别将是按顺序，虚线，点缀，固体，固体的， 然后将线型值的向量放在 ggplot 中

我上面做的是将级别放在预期的顺序中， 设置背景中创建的因子的级别。

ggplot(DATAFRAME, aes(VAR1)) +       # Create ggplot2 plot
  geom_line(aes(y = VAR2, linetype = "twodash", group=1, )) +
  geom_line(aes(y = VAR3, linetype = "dotted", group=1)) +
  geom_line(aes(y = VAR4, linetype = "dashed", group=1)) + 
  geom_line(aes(y = VAR5, linetype = "solid", group=1)) +
  labs(y = "number of parties in government", x= "year", lintype = "Legend") +
  scale_linetype_manual(values = unname(lt), breaks=c("twodash", "dotted", "dashed", "solid"))

还指定 在 scale_linetype_manual /I.SSTATIC.NET/BQOHO.PNG“ alt =”“>

^{在2022-04-12上由（v2.0.1）}

Answer 2

要将名称添加到图例中，您可以遵循u/DaveArmstrong的答案，但可以说更好的方法是将数据集转换为“长格式”或 整洁的数据框。

总体思路是每一列代表一个变量，每一行代表一个观察值。列布局应为 年 |变量|值 而不是年份| VAR1 | VAR2 | VAR3...。有很多方法可以转换数据框。一种非常简单的方法是使用 pivot_longer() ，如下所示：

library(dplyr)
library(tidyr)
library(ggplot2)

set.seed(8675309)  # so you get the same randomness I do

df <- data.frame(
  year = 2000:2020,
  VAR1 = rnorm(21, 10, 1),
  VAR2 = rnorm(21, 15, 2),
  VAR3 = rbinom(21, size=20, prob = 0.9),
  VAR4 = rcauchy(21, location=12, scale=2)
)

df %>% pivot_longer(cols = -year, names_to = "variable", values_to = "value") %>%
  ggplot(aes(x=year, y=value)) +
  geom_line(aes(linetype=variable)) +
  theme_bw()

Answer 3

您还可以使用 pivot_wider（）将数据转换，因此您无需多次调用 Geom_line 。然后，您也可以将所有变量都馈入新变量。

library(ggplot2)
library(dplyr)
library(tidyr)

DATAFRAME <- data.frame(
  VAR1 = 1:20, 
  VAR2 = runif(20,0,1), 
  VAR3 = runif(20,1,2), 
  VAR4 = runif(20,2,3), 
  VAR5 = runif(20,3,4)
)
#transpose to long format except your year variable
df2 <- pivot_longer(DATAFRAME, cols =  paste0("VAR",2:5))

ggplot(df2) +
  geom_line(aes(x=VAR1 , y = value,  group =name, linetype = name)) +
  labs(y = "number of parties in government", x= "year", lintype = "Legend")