我有一個這樣的資料集：
DENSE<-runif(10, min=0, max=100)
CROP<-runif(10, min=0, max=100)
WILD<-runif(10, min=0, max=100)
BetaDiv<-runif(10, min=0, max=1)
df<-data.frame(DENSE, CROP, WILD, BetaDiv)
我用這段代碼做一個簡單的三元圖，
ggtern(df[ordered(-df$BetaDiv),],aes(DENSE,CROP,WILD))
geom_point(alpha=0.8, aes(color=BetaDiv), size=3) scale_color_viridis_c(direction = -1)
stat_density_tern(geom = 'polygon',
n = 100,
aes(fill = ..level..,
alpha = ..level..))
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/371963.html