r - 线条粗细 ggplot - 看起来离散
问题描述
我想绘制两条不同粗细的线。size
论点有效,但只是部分有效。
library(ggplot2)
forecast <- c(2,2,1,2,2,3,2,3,3,3,3)
actual <- c(2,2,1,2,2,3,2,3,2,2,1)
my_df <- data.frame(forecast = forecast, actual = actual)
my_df$seq_order <- as.factor(1:NROW(my_df))
my_df <-gather(my_df, "line_type", "value", -seq_order)
my_df$line_size <- 1
my_df[my_df$line_type =="actual", "line_size"] <- 5
ggplot(data=my_df, aes(x=seq_order, y = value,
colour = line_type, group=line_type, size= line_size))+geom_line()+
scale_size_continuous(guide = FALSE)+
scale_color_manual(values = c("forecast" = "blue" ,"actual" = "green"))
这是它生成的内容:
但是,更改my_df[my_df$line_type =="actual", "line_size"] <- 2
不会明显影响任何事情。
解决方案
一种方法是使用scale_size_identity
.
ggplot(data=my_df, aes(x=seq_order, y = value,
colour = line_type, group=line_type, size= line_size))+geom_line()+
scale_size_identity(guide=FALSE) +
scale_color_manual(values = c("forecast" = "blue" ,"actual" = "green"))
推荐阅读
- c++ - 在 Xcode12.4 (PostgreSQL) 中使用 C++ 编译 libpqxx
- flutter - SocketException:操作系统错误:连接被拒绝,errno = 111,地址 = localhost,端口 = 57838 #0
- java - ElasticSearchConfig 如何替换 NodeBuilder?
- android - How to combine columns from Android Room LEFT OUTER JOIN select statement
- openapi - OpenAPI 生成器没有为路径参数生成 @NotNull
- go - VSCode 在新的 GO 安装中找不到包
- python - 如何知道我的一个子弹精灵是否与我的敌人/巨石精灵相撞?- 游戏
- arrays - 比较 Ruby 中二维数组的子数组,并显示结果数组与现有和遗漏的项目
- css - CSS - 雪佛龙不会自行旋转
- javascript - javascript单行条件