我在使用ggtern，想創建一個圖，根據每個三角點的點值，填充/平滑三角形各點之間的面積。就像下面這樣... 目標圖
但是，到目前為止，我得到的是... 當前狀態
下面是一些資料和代碼示例。
感謝您的幫助！
a <- c(/span>1. 0, 0.0, 0. 0, 0.0, 0. 0, 0.9, 0. 1, 0.1, 0. 8, 0.0, 0. 2, 0.2, 0. 8, 0.3, 0. 0, 0.0, 0. 3, 0.7, 0. 4, 0.0, 0. 6, 0.6, 0. 5, 0.0, 0. 5, 0.1, 0. 8, 0.7, 0.1, 0. 2, 0.1, 0.7,
0.2, 0。 6, 0.1, 0. 1, 0.6, 0. 3, 0.3, 0. 1, 0.5, 0. 4, 0.5, 0. 4, 0.6, 0. 2, 0.2, 0.3, 0. 5, 0.2, 0. 5, 0.2, 0. 3, 0.4, 0. 2, 0.3, 0. 3, 0.4)。
b <- c(0.0, 0． 0, 1.0, 0. 1, 0.9, 0. 0, 0.1, 0. 0, 0.0, 0. 8, 0.2, 0.8, 0。 0, 0.2, 0. 0, 0.3, 0. 3, 0.7, 0. 0, 0.6, 0. 4, 0.0, 0。 4, 0.6, 0． 5, 0.0, 0. 1, 0.8, 0.1, 0.2 0. 1, 0.2, 0. 7, 0.7, 0.2,
0.1, 0。 1, 0.3, 0. 6, 0.3, 0． 6, 0.1, 0. 4, 0.1, 0. 1, 0.4, 0. 5, 0.2, 0. 6, 0.2, 0. 3, 0.3, 0. 2, 0.5, 0. 2, 0.4, 0. 4, 0.4, 0. 3, 0.3）
c <- c（0. 0, 1.0, 0. 9, 0.1, 0. 1, 0.0, 0. 9, 0.2, 0. 2, 0.8, 0. 8, 0.0, 0. 7, 0.0, 0. 7, 0.0, 0. 3, 0.4, 0.6, 0.6 , 0. 6, 0.4, 0. 0, 0.0, 0. 5, 0.5, 0. 8, 0.1, 0. 2, 0.7, 0. 1, 0.2, 0.1,
0.7, 0。 3, 0.6, 0. 3, 0.1, 0. 1, 0.6, 0. 5, 0.4, 0. 5, 0.1, 0. 1, 0.2, 0. 2, 0.6, 0. 2, 0.5, 0. 3, 0.3, 0. 5, 0.2, 0.4, 0。 4, 0.3, 0. 4, 0.3)。
值 <- c（1. 433, 0.251, 0. 000, 0.176, 0. 556, 1. 490, 0.087, 0. 522, 1. 718, 0.000, 0. 098, 0. 347, 0.772, 1. 642, 1.093, 1. 762, 0.000, 0. 052, 0. 713, 1.857, 0. 000, 1.367, 0. 022, 1.814,
1.726, 1。 043, 1.424, 0. 001, 1. 722, 0.428, 0. 122, 1. 656, 1.798, 0. 330, 0.384, 0.138, 1. 777, 0. 661, 1.763, 0. 271, 0. 166, 1.733, 0. 753, 0. 984, 0.236, 1. 574, 0.204, 1. 232, 1.471,
1.086, 1.748, 0。 409, 0.568, 0. 790, 1.505, 0. 520, 1.552, 0. 451, 0.884, 1. 094, 1.180, 0. 484, 0.831, 0. 859, 1.123）
df <- data. frame(a,/span>b。 c,value)。
library(ggtern)
ggtern(df,ais(a, b, c)
geom_point(size=2。 aes(color=value))
theme_rgbw()
uj5u.com熱心網友回復：
應用ggtern包檔案中的例子，你可以試試這個。你可能需要對輸入和引數進行實驗以得到你所需要的結果，但這應該是一個開始。
編輯了引數，使之更像OP要求的明顯的填充區域和移除點，以及頂部的網格，現在，
library（ggtern）
ggtern(df, aes(a, b。 c。 值=值））
stat_interpolate_tern(geom="polygon"，
公式=值~y x，
方法= lm,
n = 100,
休息時間 = seq(0,/span> 2. 5, length.out = 8),
aes(fill = ...level.),
expand = 1）
scale_fill_gradient(low = "green"。 高 = "red"）
theme_rgbw() 。
主題(tern.panel.grid.ontop = TRUE）
創建于2021-09-16，由reprex包（v2.0.0）
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/318902.html
標籤：