我在r中使用了SPCA包来查找加载因子。 我创建了一个图表来显示最重要的因素,但是kpis(标签)的名称并不清晰可见。我在绘图函数中使用了sizelabels,它改变了字体大小但仍然不清楚。 comp 2中的客户满意度是不可读的。我该如何解决这个问题?
#reactuve function to analyse pca
SPCA.results<-reactive({
if(is.null(cor(EvaluatedData()))){
return(NULL)
}else{
#adapted from another devium
file1<-input$evaluatedfile
if(is.null(file1)){return()}
dm<-data.matrix(cor(EvaluatedData()))
spca.components<-input$PCs
spcabb(dm,card= c(spca.components, spca.components, 4),unc = TRUE)
}
})
output$compplot<-renderPlot({
if(is.null(SPCA.results())){return()}
data<-SPCA.results()
spca.components<-input$PCs
plot(data, cols=3,plotload = TRUE,par(col = 'blue'), onlynonzero = FALSE, variablesnames = TRUE,plotvex = FALSE,mfrow = 2, mfcol = 2,addlabels = TRUE,sizelabels=1)
})