如何使用ggplot 2创建线形图,其中x变量是分类变量或因子,y变量是数字变量,而组变量是分类变量?我已经尝试了如上所述的变量使用+ geom_point()并可以正常工作,但是+ geom_line()却没有。
我已经阅读了以下文章:使用分类数据创建折线图,具有两个分类变量的ggplot2条形图,尽管+ geom_line(),但是在绘图图中没有折线,但是它们都无法回答我的问题。
在研究代码和示例之前,(1)是的,我绝对必须将x变量和组变量用作字符或因子,(2)否,我不希望使用条形图或仅想要geom_point()。
下面的示例提供了三个独立示例变量的系数,这些变量来自对因变量使用不同变体而进行的三个不同示例回归。尽管下面的代码显示了我发现的解决方法(即,创建一个名为“ test”的int变量来代替包含包含自变量名称的chr变量,以形成回归),但我需要能够保留自变量的chr名称。
这是我所拥有的:
library(dplyr)
library(ggplot2)
library(plotly)
library(tidyr)
var_names <- c("ST1", "ST2", "ST3",
"EFI1", "EFI2", "EFI3", "EFI4",
"EFI5", "EFI6")
####Dataset1####
reg <- c(26441.84, 20516.03, 12936.79, 17793.22, 18837.48, 15704.31, 17611.14, 17360.59, 14836.34)
r_adj <- c(30473.17, 35221.43, 29875.98, 30267.31, 29765.9, 30322.86, 31535.66, 30955.29, 29828.3)
a_adj <- c(19588.63, 31163.79, 22498.53, 27713.72, 25703.89, 28565.34, 29853.22, 29088.25, 25213.02)
df1 <- data.frame(var_names, reg, r_adj, a_adj, stringsAsFactors = FALSE)
df1$test <- c(1:9)
df2 <- gather(df1, key = "series_type", value = "value", c(2:4))
fig7 <- ggplot(df2, aes(x = test, y = value, color = series_type)) + geom_line() + geom_point()
fig7
最终,我想要的东西看起来像下面的图,但是用独立变量名代替了“ test”变量。
您可以转换var_names
为一个因子并按照出现的顺序设置级别(否则,它将按字母数字顺序分配,并且x轴不规则)。然后,只需将其添加series_type
到图中的组参数即可。
df2 <- gather(df1, key = "series_type", value = "value", c(2:4)) %>%
mutate(var_names = factor(var_names, levels = unique(var_names)))
ggplot(df2, aes(x = var_names, y = value, color = series_type, group = series_type)) + geom_line() + geom_point()
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句