R ggplot：对多条线进行分组和打印，但单独处理

我有这个数据框： 德福隆：

我这样做：

  p <- ggplot(df_long, aes(year, value)) +
geom_line(aes(colour = variable, group = variable))
show(p)

p试试这个：

将新列添加到您的
tible
：

df%突变（组=病例）(
变量%c（“澳大利亚”、“阿根廷”）~“第1组”，
变量%c（“比利时”、“美国”）~“第2组”
))


绘制新的
df
：

ggplot(df, aes(year, value)) +
  geom_line(aes(colour = variable, group = variable)) + 
  scale_color_manual(values=c("red", "blue", "green", "orange")) + 
  facet_wrap(~group)


使用
scale\u color\u manual（）

将新列添加到您的
tible
：

df%突变（组=病例）(
变量%c（“澳大利亚”、“阿根廷”）~“第1组”，
变量%c（“比利时”、“美国”）~“第2组”
))


绘制新的
df
：

ggplot(df, aes(year, value)) +
  geom_line(aes(colour = variable, group = variable)) + 
  scale_color_manual(values=c("red", "blue", "green", "orange")) + 
  facet_wrap(~group)


使用
scale\u color\u manual（）
。对于第二个问题，我找到了添加新变量的最简单方法：
mutate（df\u long，grouping=ifelse（变量%in%country\u list，'This'，'that'）
然后
facet\u wrap（~grouping）
。