我有一個示例資料框，如下所示：
Month<-c("Jan","Feb","Mar","Apr")
Value<-c(12,6,13,3)
xy<-data.frame(Month,Value)
ggplot(xy, aes( x=Month,y=Value)) geom_bar(stat="identity",width=0.6) coord_flip()
如何添加與第一個相同的輔助 y 軸“月”？
謝謝你。
uj5u.com熱心網友回復：
您Month是離散的，因為scale_x_discrete沒有輔助軸選項，我們需要制作另一個mm連續的虛擬變數，然后重新編碼該變數。
xy %>%
arrange(Month) %>%
mutate(mm = 1:4) %>%
ggplot(aes(x=mm,y=Value)) geom_bar(stat="identity",width=0.6)
scale_x_continuous(breaks = 1:4,
labels = c("Apr", "Feb", "Jan", "Mar"),
sec.axis = dup_axis())
coord_flip()
uj5u.com熱心網友回復：
與樸的回答略有不同，但總體思路相同。
library(ggplot2)
Month <- c("Jan", "Feb", "Mar", "Apr")
Value <- c(12, 6, 13, 3)
xy <- data.frame(Month, Value)
ggplot(xy, aes(x = length(Month):1, y = Value)) geom_bar(stat = "identity", width =
0.6)
scale_x_continuous(
breaks = length(Month):1,
labels = Month,
sec.axis = dup_axis(),
name = "Months"
)
coord_flip()
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/364780.html