Plot ggplot2 中條形圖上的一條線

Question

我制作了一個堆積條形圖，顯示對不同問題的回答的相對比例。 現在我想在該條形圖的頂部顯示一個特定的響應，以顯示個人響應與響應的總體比例之間的關系。

我在這里創建了一個玩具示例：

library(ggplot2)
n = 1000
n_groups = 5
overall_df = data.frame(
  state = sample(letters[1:8], n, replace = TRUE),
  frequency = runif(n, min = 0, max = 1),
  var_id = rep(LETTERS[1:n_groups], each = 1000 / n_groups)
)

row = data.frame(
  A = "a", B = "b", C = "c", D = "h", E = "b"
)

ggplot(overall_df, 
           aes(fill=state, y=frequency, x=var_id)) + 
  geom_bar(position="fill", stat="identity") 

此處的目標是將 object row中的響應繪制為相應條形圖框中的一個點，並用一條線連接這些點。

這是所需結果的（繪制不佳的）示例。 謝謝你的幫助。

Answer 1

這比我想象的要棘手。 我不確定是否有任何方法可以手動計算直線的 x/y 坐標。

library(dplyr)
library(ggplot2)

df <- overall_df %>% group_by(state, var_id) %>%
  summarize(frequency = sum(frequency))

freq <- unlist(Map(function(d, val) {
  (sum(d$frequency[d$state > val]) + 0.5 * d$frequency[d$state == val]) /
    sum(d$frequency)
  }, d = split(df, df$var_id), val = row))
  
line_df <- data.frame(state = unlist(row),
                      frequency = freq,
                      var_id = names(row))

ggplot(df, aes(fill=state, y=frequency, x=var_id)) + 
  geom_col(position="fill") +
  geom_line(data = line_df, aes(group = 1)) +
  geom_point(data = line_df, aes(group = 1))

^{由reprex package (v2.0.1) 創建於 2022-03-08}

Answer 2

這是使用 dplyr 的自動化方法。我通過將 label 數據加入原始數據來准備摘要，然后使用group_by + summarize來獲取這些數據。

library(dplyr)
row_df <- data.frame(state = letters[1:n_groups], var_id = LETTERS[1:n_groups])

line_df <- row_df %>%
  left_join(overall_df, by = "var_id") %>%
  group_by(var_id) %>%
  summarize(state = last(state.x),
            frequency = (sum(frequency[state.x < state.y]) + 
                         sum(frequency[state.x == state.y])/2) / sum(frequency))

ggplot(overall_df, aes(fill=state, y=frequency, x=var_id)) + 
  geom_bar(position="fill", stat="identity") +
  geom_point(data = line_df) +
  geom_line(data = line_df, aes(group = 1))