再一次，我需要你的幫助，我期待著傾聽和學習。
我想描述幾種鳥類（t1 - t7）之間的相互關系。觀察到它們與自己型別或其他型別的鳥類互動的頻率（o1 - o7）
資料（bird.data）如下所示：
| 型別 | o1 | o2 | o3 | o4 | o5 | o6 | o7 |
|---|---|---|---|---|---|---|---|
| t1 | 77.6 | 3.5 | 1.5 | 9.1 | 3.3 | 1.4 | 3.6 |
| t2 | 10 | 64.4 | 9 | 3.2 | 2.1 | 7.4 | 3.9 |
| t3 | 8.6 | 12.1 | 63.2 | 2.4 | 0.6 | 8.8 | 4.3 |
| t4 | 28.7 | 5.1 | 2.0 | 51.4 | 5.8 | 0.3 | 6.6 |
| t5 | 4.1 | 12.2 | 9.5 | 1.0 | 0.4 | 64.5 | 8.3 |
| t6 | 10.9 | 3.6 | 0.3 | 6.5 | 66.8 | 2.0 | 9.9 |
| t7 | 15.9 | 8.2 | 4.5 | 5.6 | 9.4 | 5.4 | 51.0 |
bird.data <- structure(list(type = c("t1”, “t2", “t3”, “t4”, “t5”, “t6”, “t7”), o1 = c(77.6, 10, 8.6, 28.7, 4.1, 10.9, 15.9), o2 = c(3.5, 64.4, 12.1, 5.1, 12.2, 3.6, 8.2), o3 = c(1.5, 9, 63.2, 2, 9.5, 0.3, 4.5), o4 = c(9.1, 3.2, 2.4, 51.4, 1, 6.5, 5.6), o5 = c(3.3, 2.1, 0.6, 5.8, 0.4, 66.8, 9.4), o6 = c(1.4, 7.4, 8.8, 0.3, 64.5, 2, 5.4), o7 = c(3.6, 3.9, 4.3, 6.6, 8.3, 9.9, 51)), row.names = c(NA, -7L), class = c("tbl_df", "tbl", "data.frame"))
為了以圖形方式顯示這一點，我想繪制一個翻轉的堆積條形圖 - 類似于這個：（
取自這篇文章：將百分比標簽添加到堆積條形圖 ggplot2）
而不是縣，我想在 x 軸（型別）上描繪不同型別的鳥類，而不是計劃型別，我想用不同型別鳥類之間的互動百分比（o1-o7）填充條形圖。
我現在的問題是：
- 如何組織/分組列 o1、o2、o3、o4、o5、o6、o7 以用作填充？
- 我的y是什么？
ggplot()
geom_bar(aes(y = ?, x = type, fill = ?),
data = bird.data,
stat="identity")
coord_flip()
非常感謝您的任何建議！:-)
uj5u.com熱心網友回復：
您可以通過使用例如將資料轉換為長格式來實作您想要的結果tidyr::pivot_longer。之后，應該在fill和上映射什么就很簡單了y。
注意：而不是geom_bar(.. stat="identity")我使用geom_col(...). 也不是coord_flip我切換了xand的角色y。
library(tidyr)
library(ggplot2)
bird_data_long <- bird.data %>%
pivot_longer(-type, names_to = "name", values_to = "value")
head(bird_data_long)
#> # A tibble: 6 × 3
#> type name value
#> <chr> <chr> <dbl>
#> 1 t1 o1 77.6
#> 2 t1 o2 3.5
#> 3 t1 o3 1.5
#> 4 t1 o4 9.1
#> 5 t1 o5 3.3
#> 6 t1 o6 1.4
ggplot()
geom_col(aes(x = value, y = type, fill = name), data = bird_data_long)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/443291.html