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()