Question

我在这里找到了代码，用于在ggplot2中创建PCA双标图。我做了一些小修改，但我还需要一个改进。

代码如下：

PCbiplot2 <- function(res.pca, x="Dim.1", y="Dim.2") {
if(!require(ggplot2)) install.packages("ggplot2")
# res.pca being a PCA object
data <- data.frame(obsnames=row.names(res.pca$ind$coord), res.pca$ind$coord)
plot <- ggplot(data, aes_string(x=x, y=y)) + geom_text(size=3,     aes(label=obsnames))
plot <- plot + geom_hline(aes(0), size=.2) + geom_vline(aes(0), size=.2)
datapc <- data.frame(varnames=rownames(res.pca$var$coord), res.pca$var$coord)
mult <- min(
(max(data[,y]) - min(data[,y])/(max(datapc[,y])-min(datapc[,y]))),
(max(data[,x]) - min(data[,x])/(max(datapc[,x])-min(datapc[,x])))
)
datapc <- transform(datapc,
                  v1 = .7 * mult * (get(x)),
                  v2 = .7 * mult * (get(y))
)
plot <- plot + coord_equal() + geom_text(data=datapc, aes(x=v1, y=v2, label=varnames), size = 3, vjust=1.5, color="red")
plot <- plot + geom_segment(data=datapc, aes(x=0, y=0, xend=v1, yend=v2),     arrow=arrow(length=unit(0.2,"cm")), alpha=0.75, color="red")
plot <- plot + theme(panel.background = element_rect(fill='white', colour='black'))
plot
}

在图中使用此代码轴名称是＆＃34; Dim.1＆＃34;和＆＃34; Dim.2＆＃34;。我需要显示尺寸变异的百分比。这个信息在Dim.1的res.pca $ eig [1,2]和Dim.2的res.pca $ eig [2,2]中，但我不知道如何将这些信息输入到图表中。

Answer 1

plot<-plot+xlab("axis name")

可能？

在ggplot2中更改轴名称

1 个答案: