ggplot2，线型与 aes 映射中指定的不匹配

Question

我为每条线指定线型，​​结果实线变为点线，点线变为实线。我尝试使用实线、虚线和点线，但仍然无法弄清楚图中显示的线型的顺序是什么。下面是代码：

library(ggplot2)
library(ggthemes)

p = ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
  geom_point() + #' This time we will vary the feeding groups by shapes instead of colors
  geom_smooth(method='lm')

gg_data <- ggplot_build(p)


sleepplot2 = ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
  geom_point(shape=4, size=3, color='blue') + #' This time we will vary the feeding groups by shapes instead of colors
  geom_text(aes(label=name), nudge_x = 0.5, nudge_y = 1) +
  labs(x = "Log body weight (Kg)", y = "Time asleep (hrs/day)") +
  ggtitle('Housing 1990-2007') +
  geom_line(color='red', data = gg_data$data[[2]], mapping=aes(x = x, y = ymin, linetype='solid'), size = 0.5) +
  geom_smooth(color='red',data = msleep, mapping=aes(x = log(bodywt), y = sleep_total, linetype='dotted'), method='lm', se = FALSE, size=0.5) +
  geom_line(color='red', data = gg_data$data[[2]], mapping=aes(x = x, y = ymax, linetype='solid'), size = 0.5) +
  scale_linetype_manual('', values = c("solid","dotted"),labels=c("Fit: y=0.3*x", "95% conf. bounds"))

Answer 1

运行以下代码：（与您的代码相同，但不使用ggtheme 包）

library(ggplot2)

ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
  geom_point() +
  geom_smooth(method='lm')

ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
  geom_point(shape=4, size=3, color='blue') +
  geom_text(aes(label=name), nudge_x = 0.5, nudge_y = 1) +
  labs(x = "Log body weight (Kg)", y = "Time asleep (hrs/day)") +
  ggtitle('Housing 1990-2007') +
  geom_line(color='red', data = gg_data$data[[2]], mapping=aes(x = x, y = ymin, linetype='solid'), size = 0.5) +
  geom_smooth(color='red',data = msleep, mapping=aes(x = log(bodywt), y = sleep_total, linetype='dotted'), method='lm', se = FALSE, size=0.5) +
  geom_line(color='red', data = gg_data$data[[2]], mapping=aes(x = x, y = ymax, linetype='solid'), size = 0.5) +
  scale_linetype_manual('', values = c("dotted","solid"),labels=c("Fit: y=0.3*x", "95% conf. bounds"))

为我们提供了以下情节：

图例和情节上的三行似乎与您想要实现的情节一致。