这是一些示例代码。
library(ggtern)
# Based of random data.
DATA <- data.frame(A = runif(100),B = runif(100),C = runif(100))
plot <- ggtern(data = DATA,mapping = aes(x = A,y = B,z = C)) +
geom_point() + ggtern::theme_bw(base_size = 30) + theme_arrowlarge()
plot
![增加三元图[ggtern]](https://www.f2er.com/res/2022/05-04/12/ac1baeee234a73c172b3d08c9aaecd79.png "增加三元图[ggtern]")
如何增加箭头和箭头的粗细？一旦我开始增加标签的大小，它们就太薄了。
此外，如何将参数base_size与ggtern主题一起使用？因为它似乎仅适用于某些主题，所以我不确定是否要按比例放大所有内容（包括箭头）是否使用正确。
要更改箭头的线条粗细，可以通过tern.axis.arrow功能访问theme()。然后将element_line()的大小更改为您想要的大小。
library(ggtern)
# Based of random data.
DATA <- data.frame(A = runif(100),B = runif(100),C = runif(100))
ggtern(data = DATA,mapping = aes(x = A,y = B,z = C)) +
geom_point() +
ggtern::theme_bw(base_size = 30) +
theme_arrowlarge() +
theme(tern.axis.arrow = element_line(size = 3))
如果您想直接修改箭头选项，可以从ggtern::theme_bw函数后面的代码中看到，lineend从名为tern.arrow的全局选项中调用。
function (base_size = 12,base_family = "")
{
base = ggplot2::theme_bw(base_size,base_family)
theme_ggtern(base_size,base_family) %+replace% base %+replace%
theme(tern.plot.background = element_rect(size = NA,color = NA),tern.axis.line = element_line(color = base$panel.border$colour),tern.axis.arrow = element_line(color = base$panel.border$colour,lineend = getOption("tern.arrow")))
}
<bytecode: 0x7fb23868a558>
<environment: namespace:ggtern>
因此，您可以根据需要使用箭头选项来调整箭头的类型，大小等。例如，在这里，我们将箭头头更改为0.75厘米，将线宽更改为大小3。 / p>
DATA <- data.frame(A = runif(100),C = runif(100))
options(tern.arrow = arrow(type = "open",length = unit(.75,"cm")))
ggtern(data = DATA,z = C)) +
geom_point() +
ggtern::theme_bw(base_size = 30) +
theme_arrowlarge() +
theme(tern.axis.arrow = element_line(size = 3))
