使用此資料框：
df <- structure(list(region = c("AA", "BB", "CC", "DD"), event1 = c("XXX",
"XXX", "XXX", "XXX"), value = c(3, 1, 2, 2)), row.names = c(NA,
-4L), class = c("tbl_df", "tbl", "data.frame"))
region event1 value
<chr> <chr> <dbl>
1 AA XXX 3
2 BB XXX 1
3 CC XXX 2
4 DD XXX 2
使用此代碼：
ggplot(df, aes(x = region, y = event1, fill = value))
geom_tile(height=1, colour="white", size=0.5)
geom_text(aes(label = value), color = "grey20", size = 5)
scale_fill_gradientn(colours= c("green","white","red"),, na.value = "transparent",
breaks=c(1,2,3,4),
labels = c("1 - A", "2 - B", "3 - C", "4 - D"),
limits=c(0.5,4.5))
我得到這個情節：
我想要的輸出：
如何修改代碼以控制圖塊的高度？
uj5u.com熱心網友回復：
實作所需結果的一種選擇是增加規模的擴展：
library(ggplot2)
ggplot(df, aes(x = region, y = event1, fill = value))
geom_tile(height=1, colour="white", size=0.5)
geom_text(aes(label = value), color = "grey20", size = 5)
scale_y_discrete(expand = expansion(add = c(.6, 3)))
scale_fill_gradientn(colours= c("green","white","red"),, na.value = "transparent",
breaks=c(1,2,3,4),
labels = c("1 - A", "2 - B", "3 - C", "4 - D"),
limits=c(0.5,4.5))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/427670.html