R中折线图和堆积条的比例不同如何区分

Question

library(ggplot2)
library(reshape2)

data <- data.frame(partition = c("1", "2", "3", "4","5"), 
                   edge = c(2914.2025,4274.438333,7072.29,7984.68,10232.96333), 
                   cloud = c(11445.02,10384.94,9165.71,7884.15,7113.79),
                   communication = c(803345.0248,805614.764,810357.3823,460484.3287,483277.6666))
data2 <- data.frame(partition = c("1", "2", "3", "4","5"), 
                    output_data = c(199.1,199.1,199.1,99.5,99.5))

elections_long <- melt(data, id = "partition")

ggplot(elections_long, aes(x = partition, y = value)) +
  geom_bar(stat="identity", aes(fill = variable)) +
  geom_line(data=df2, aes(x=partition, y=value), colour="blue")

tidyr::pivot_longer(data, cols = -partition) %>%
    ggplot() + aes(x = partition, y = value) +
      geom_col(aes(fill = name)) +
      geom_line(data=data2, aes(x=partition, y=output_data, group = 1), colour="blue")

我在一个图中绘制了一个堆叠的条形图和折线图，如下所示： 折线图的值以 MB 为单位，而堆栈栏的值以毫秒为单位。 折线图是蓝色的，由于值的比例，它没有被区分。 对此的任何帮助都将受到高度赞赏。 谢谢

Answer 1

好吧，即使没有插入几何图形，您的 plot 也会遭受从低点 2914.202 到高点 810357.382 的巨大范围的影响。 最简单的一条线解决方案是将您的 y 轴刻度更改为 log10 之类的东西（有关更多信息，请参见此处）

会是这个样子...

library(ggplot2)
library(tidyr)

data <- data.frame(partition = c("1", "2", "3", "4","5"), 
                   edge = c(2914.2025,4274.438333,7072.29,7984.68,10232.96333), 
                   cloud = c(11445.02,10384.94,9165.71,7884.15,7113.79),
                   communication = c(803345.0248,805614.764,810357.3823,460484.3287,483277.6666))
data2 <- data.frame(partition = c("1", "2", "3", "4","5"), 
                    output_data = c(199.1,199.1,199.1,99.5,99.5))


tidyr::pivot_longer(data, cols = -partition) %>%
  ggplot() + aes(x = partition, y = value) +
  geom_col(aes(fill = name)) +
  geom_line(data=data2, aes(x=partition, y=output_data, group = 1), colour="blue") + 
  scale_y_log10()