我有一個帶有代碼的圖表
all_trips2 %>%
count(member_casual) %>% mutate(pct = prop.table(n), total = table(member_casual)) %>%
ggplot(aes(member_casual, n, fill = member_casual, label = scales::percent(pct)))
geom_col(position = "dodge")
geom_text(position = position_dodge(width = .9), vjust = 10, size = 5)
scale_y_continuous()
labs(title = "Casual Vs Subscriber", x = "Rider type", y = "Rider count") theme_gdocs()
輸入是：
structure(list(X = 1:6, ride_id = c("CFA86D4455AA1030", "30D9DC61227D1AF3",
"846D87A15682A284", "994D05AA75A168F2", "DF7464FBE92D8308", "CEBA8516FD17F8D8"
), rideable_type = c("classic_bike", "classic_bike", "classic_bike",
"classic_bike", "classic_bike", "classic_bike"), member_casual = c("casual",
"casual", "casual", "casual", "casual", "casual"), started_at = c("2021-03-16 08:32:00",
"2021-03-28 01:26:00", "2021-03-11 21:17:00", "2021-03-11 13:26:00",
"2021-03-21 09:09:00", "2021-03-20 11:08:00"), ended_at = c("2021-03-16 08:36:00",
"2021-03-28 01:36:00", "2021-03-11 21:33:00", "2021-03-11 13:55:00",
"2021-03-21 09:27:00", "2021-03-20 11:29:00"), time = c("08:32",
"01:26", "21:17", "13:26", "09:09", "11:08"), month = c(3L, 3L,
3L, 3L, 3L, 3L), day_of_week = c("Tuesday", "Sunday", "Thursday",
"Thursday", "Sunday", "Saturday"), year = c(2021L, 2021L, 2021L,
2021L, 2021L, 2021L), day = c(16L, 28L, 11L, 11L, 21L, 20L),
trip_duration = c(240, 600, 960, 1740, 1080, 1260)), row.names = c(NA,
6L), class = "data.frame")
我不知道如何將兩個條形的總數加在一起以顯示在圖表上。我不需要個人計數，我需要總數。我看到了一些其他問題，這些問題顯示了每個條的個人計數 - 我需要總數。
uj5u.com熱心網友回復：
你在尋找這樣的東西嗎？
（請注意，我稍微更改了您的資料框，因為您member_casual在 reprex 中的所有值都是"casual"）
all_trips2 %>%
count(member_casual) %>%
mutate(pct = prop.table(n), total = table(member_casual)) %>%
ggplot(aes(member_casual, n))
geom_col(aes(fill = member_casual), position = "dodge")
geom_text(aes(label = scales::percent(pct)),
position = position_dodge(width = .9), vjust = 10, size = 5)
geom_text(aes(x = 1.5, y = max(n),
label = paste('Total =', sum(n))), size = 5, vjust = -0.5)
scale_y_continuous()
labs(title = "Casual Vs Subscriber", x = "Rider type", y = "Rider count")
theme_gdocs()
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/450733.html
上一篇：R中離散x軸上的分組箱線圖
下一篇：如何繪制圖并為每個圖指定特定名稱