使用ggplot2绘制具有不同颜色的多条线
使用ggplot2绘制具有不同颜色的多条线
提问于 2021-08-12 09:30:49
我有一个数据框架，由一个年份列(1980-2009)和16个列组成，这些列包含来自16个不同模型的气象数据。因此，每个值代表一年和一个模型的年值。下面是一些代码，可以让它非常容易地重现：
set.seed(20)
df <- as.data.frame(matrix(rnorm(120), 30, 16))
df[,17] <- 1980:2009
df <- df[,c(17,1:16)]
colnames(df) <- c("Year", "Model 1", "Model 2", "Model 3", "Model 4", "Model 5", "Model 6", "Model 7", "Model 8",
"Model 9","Model 10", "Model 11", "Model 12", "Model 13", "Model 14", "Model 15", "Model 16")现在我想用ggplot2来绘制它。目标是用不同颜色的多条线绘制一张图，每条线代表一个不同的模型。理想情况下，您应该能够为每行选择颜色。
我已经检查过类似于这两个问题的假设：Question1 Question2
但在我的例子中，没有一个是真正有效的。
使用相同的数据从Excel中得到的结果应该类似于以下内容：
有谁有提示吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-08-12 09:42:18
ggplot需要的是长数据而不是宽数据。你可以使用tidyr的pivot_longer，但还有其他功能，比如重塑。
library(tidyverse)
set.seed(20)
df <- as.data.frame(matrix(rnorm(30*16), 30, 16))
df[,17] <- 1980:2009
df <- df[,c(17,1:16)]
colnames(df) <- c("Year", "Model 1", "Model 2", "Model 3", "Model 4", "Model 5", "Model 6", "Model 7", "Model 8",
"Model 9","Model 10", "Model 11", "Model 12", "Model 13", "Model 14", "Model 15", "Model 16")
df %>%
as_tibble() %>%
pivot_longer(-1) %>%
ggplot(aes(Year, value, color = name)) +
geom_point() +
geom_line()
对于插值程度更高的直线，可以尝试使用ggalt的x样条法。
df %>%
as_tibble() %>%
pivot_longer(-1) %>%
filter(grepl("12|13|14", name)) %>%
ggplot(aes(Year, value, color = name)) +
geom_point() +
ggalt::geom_xspline()
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/68754862
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号