如何在图形线上绘制不同的颜色并插入图例（颜色和列标题）
青年党
我试过为每一行分配颜色。但是，无法弄清楚如何按照我的意愿显示图例结果。
groupcolours <- c(NE="#999999",NS="#E69F00",NW="#56B4E9",NN="#009E73")
我输入以下代码。
s <- ggplot(time_interval_RSE2) +
ggtitle(paste(main_rse_temp,"_",naljja,"_교통량", sep="")) +
labs(x="시간(15분 단위)", y="교통량(대수/15분)") +
theme(axis.text.x=element_text(size=12,angle=90,hjust=1,vjust=0.5),axis.text.y = element_text(size=19),plot.title = element_text(size=25),axis.title.y=element_text(colour="black",size=30),axis.title.x = element_text(colour="black",size=30)) +
scale_y_continuous(limits=c(0, 100)) +
geom_line(aes(x=time_interval,y=as.numeric(NE),group=1,colour=groupcolours)) +
geom_line(aes(x=time_interval,y=as.numeric(NS),group=2,colour=groupcolours)) +
geom_line(aes(x=time_interval,y=as.numeric(NW),group=3,colour=groupcolours)) +
geom_line(aes(x=time_interval,y=as.numeric(NN),group=4,colour=groupcolours)) +
scale_color_manual(name="Direction", values =groupcolours)
我收到这个错误。
错误：Aesthetics 必须为长度 1 或与数据 (96) 相同：颜色
“time_interval_RSE2”，绘制图形的表格 
我想要的图形结果 
*我已上传图像文件。“dput(time_interval_RSE2)”不会给出完全相同的值（例如，“0”显示为“0L”）。
["time_interval_RSE2" file download][3]
杰克雷纳
如评论中所述，请不要将数据添加为图像。而是使用dput，这样每个人都可以处理数据。
查看您的数据图像，数据似乎是宽格式的。要绘制附加图形，您可以将数据转换为长格式（使用包reshape2或来自 的gather 函数dplyr），然后将方向变量添加为组和颜色变量。
例如（使用模拟数据）：
library(reshape2)
library(tidyverse)
Timestamp <- c("30-07-2019 23:00:00", "31-07-2019 00:00:00", "31-07-2019 01:00:00",
"31-07-2019 02:00:00", "31-07-2019 03:00:00", "31-07-2019 04:00:00",
"31-07-2019 05:00:00", "31-07-2019 06:00:00", "31-07-2019 07:00:00",
"31-07-2019 02:00:00", "31-07-2019 09:00:00", "31-07-2019 10:00:00",
"31-07-2019 11:00:00", "31-07-2019 12:00:00", "31-07-2019 13:00:00",
"31-07-2019 14:00:00", "31-07-2019 15:00:00", "31-07-2019 16:00:00",
"31-07-2019 17:00:00", "31-07-2019 18:00:00", "31-07-2019 19:00:00",
"31-07-2019 20:00:00", "31-07-2019 21:00:00", "31-07-2019 22:00:00",
"31-07-2019 23:00:00", "01-08-2019 00:00:00", "01-08-2019 01:00:00"
)
dat <- data.frame(Timestamp,
NE = sample(1:10, length(Timestamp), replace=TRUE),
NS = sample(1:16, length(Timestamp), replace=TRUE),
NW = sample(1:3, length(Timestamp), replace=TRUE))
melt(dat, id="Timestamp") %>%
ggplot(aes(Timestamp, value, group=variable, color=variable)) +
geom_line()
生成的图像如下所示：
请记住，您必须根据您的数据更改变量名称，因为这只是模拟数据。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
Android Studio Kotlin：提取为常量
- 2
IE 11中的FormData未定义
- 3
计算数据帧R中的字符串频率
- 4
如何在R中转置数据
- 5
如何使用Redux-Toolkit重置Redux Store
- 6
Excel 2016图表将增长与4个参数进行比较
- 7
在 Python 2.7 中。如何从文件中读取特定文本并分配给变量
- 8
未捕获的SyntaxError：带有Ajax帖子的意外令牌u
- 9
OpenCv：改变 putText() 的位置
- 10
ActiveModelSerializer仅显示关联的ID
- 11
算术中的c ++常量类型转换
- 12
如何开始为Ubuntu开发
- 13
将加号/减号添加到jQuery菜单
- 14
去噪自动编码器和常规自动编码器有什么区别？
- 15
获取并汇总所有关联的数据
- 16
OpenGL纹理格式的颜色错误
- 17
在 React Native Expo 中使用 react-redux 更改另一个键的值
- 18
http：// localhost：3000 /＃！/为什么我在localhost链接中得到“＃！/”。
- 19
TreeMap中的自定义排序
- 20
Redux动作正常，但减速器无效
- 21
如何对treeView的子节点进行排序
我来说两句