R,ggplot,將10個變陣列合成一個條形圖-有解無憂

我有從名為“Redcap”的站點中提取的資料，Redcap 上的資料如下所示： R, ggplot, 將 10 個變陣列合成一個條形圖

即這是一個“問題”，受訪者可以選擇多個答案，但他們都被繪制在一起。重申一下，答案并不相互排斥。

以下是去標識化資料的示例：

df<-structure(list(improvement___1 = c(1, 0, 1, 1, 1, 1, 1, 1, 0, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), improvement___2 = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 
0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 1), improvement___3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 
1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0), improvement___4 = c(1, 
0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 
1, 1, 1), improvement___5 = c(0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0), improvement___6 = c(0, 
1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 
0, 1, 1), improvement___7 = c(0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 
0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 
1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0), improvement___8 = c(0, 
1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 
0, 1, 1), improvement___9 = c(1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 
1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1), improvement___10 = c(0, 
0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0), AgeGroups = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 3L, 
1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 
2L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 3L, 3L, 2L, 2L, 3L, 2L, 2L, 3L, 
3L, 1L, 2L, 3L, 1L, 2L, 1L), .Label = c("Young", "Middle", "Old"
), class = "factor")), row.names = c(NA, -46L), class = c("tbl_df", 
"tbl", "data.frame"))

因為受訪者可以選擇多個答案，所以每個答案實際上都是它自己的變數，并且在匯出時，每個答案都會得到一列（Improvment_1 是第一行，improvment_2 是第二行，等等）。我想創建一個圖表，幾乎與我粘貼的圖表相同，但由我包含的另一個變數：“年齡組”分面。所以它看起來像這樣（原諒我的 msPaint 技能）：

R, ggplot, 將 10 個變陣列合成一個條形圖

我正在為如何在同一個圖表上包含 10 個不同的“改進”變數而苦苦掙扎。

uj5u.com熱心網友回復：

library(tidyverse)
df %>%
    pivot_longer(-AgeGroups) %>%
    mutate(name = fct_inorder(name) %>% fct_rev) %>%
    count(AgeGroups, name, wt = value) %>%
    ggplot(aes(n, name))  
    geom_col()  
    facet_wrap(~AgeGroups)

R, ggplot, 將 10 個變陣列合成一個條形圖

uj5u.com熱心網友回復：

我很欣賞你的 MS 繪畫技巧。這是你想要的？

library(tidyverse)
df_new <- df %>% 
  pivot_longer(-AgeGroups, "improvement")

ggplot(df_new)  
  aes(x = improvement, weight = value)  
  geom_bar(fill = "#112446")  
  coord_flip()  
  theme_minimal()  
  facet_wrap(vars(AgeGroups))

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315829.html

標籤：r ggplot2

上一篇：水平移動Y軸標題ggplot2

下一篇：嵌套分類變數作為美學