我创建了以下数据框
# Create a dataframe
Column1 <- c(1:30)
Column1 <- paste0('Month_', as.character(Column1))
paste0('Column', as.character(Column1))
Variable <- c("A", "B", "C", "D", 'E')
DF <- data.frame(Column1, Variable)
DF$value <- 0
DF$value[DF$Variable == "A"] <- runif(length(DF$value[DF$Variable == "A"]),
min = 10000, max = 50000)
DF$value[DF$Variable == "B"] <- runif(length(DF$value[DF$Variable == "A"]),
min = 100, max = 500)
DF$value[DF$Variable=="C"] <- runif(length(DF$value[DF$Variable=="A"]),
min = 100, max = 500)
DF$value[DF$Variabl e== "D"] <- runif(length(DF$value[DF$Variable == "A"]),
min = 100, max = 500)
DF$value[DF$Variable == "E"] <- runif(length(DF$value[DF$Variable=="A"]),
min = 100, max = 500)
接下来我导入了库来创建图形
# We now import the libraries
library(readxl)
require(plotly)
require(reshape2)
require(ggplot2)
require(janitor)
# We now create a chart
p1 <- ggplot(data = DF, aes(x = Column1, y = value, colour =
Variable)) +
geom_bar(data = DF[DF$Variable == "A",], aes(x = Column1, y = value,
fill=Variable), stat = 'identity') +
scale_y_continuous("New", sec.axis = sec_axis(~./10, name = "Value"),
position = "left") +
geom_line(data = DF[DF$Variable!="A",], aes(x = Column1, y = value,
fill = Variable))
p1
该代码可以正常工作。但是,我无法在同一图表中将条形图旁边创建的折线图可视化。我曾尝试调整比例,但无法使其正常工作。我可以请求一些指导吗?
你快到了,只需要将填充参数更改为组。
ggplot(data = DF, aes(x = Column1, y = value, colour =
Variable)) +
geom_bar(data = DF[DF$Variable == "A",], aes(x = Column1, y = value,
fill=Variable), stat = 'identity') +
scale_y_continuous("New", sec.axis = sec_axis(~./10, name = "Value"),
position = "left") +
geom_line(data = DF[DF$Variable!="A",], aes(x = Column1, y = value, group = Variable))
虽然不能说很好看……
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句