PCA結果繪散點圖,怎麼用R調整點的顏色 形狀 大小,並按照點的顏色形狀(合併)分類繪製標籤

時間 2021-06-25 08:04:47

1樓:漫畫怪蜀黍

分別利用顏色(colour)和形狀(shape i.e. pch)進行分組很多屬性需要單獨設定。

用到的物件有

幾何屬性(Geom,Geometric objects)

統計轉換(Stat,Statistical transformations)

標度(Scales)

座標系(xlab, ylab, coor, coordinate system)

主題(theme)

暫時未用到分面(faceting)

myData <- read.csv("data.csv") myData2 <- myData[,-20] myData3 <- na.

omit(myData2) pr<-prcomp(myData3[,5:20],scale=TRUE) pca <- pr$x ####一下為ggplot2繪圖 library(ggplot2) pca <- as.data.

frame(pca) pca$salinity <- myData3$Salinity pca$climate <- myData3$Climate pca$ecotype <- myData3$Ecotype pca$name <- myData3$Plant.name theme<-theme(panel.background = element_blankpanel.

border=element_rect(fill=NApanel.grid.major = element_blankpanel.

grid.minor = element_blankstrip.background=element_blankaxis.

text.x=element_text(colour="black"axis.text.

y=element_text(colour="black"axis.ticks=element_line(colour="black"plot.margin=unit(c(1,1,1,1),"line"legend.

title=element_blanklegend.key = element_rect(fill = "white"percentage <- round(pr$sdev / sum(pr$sdev) * 100, 2) percentage <- paste( colnames(pca), "(", paste( as.character(percentage), "%", ")", sep="") ) p <- ggplot(pca, aes(x=PC1, y=PC2,shape=paste(salinity, climate), colour=ecotype,label=name)) #p <- p + geom_point()+geom_text(size=3) + theme p <- p + geom_point(size=3) + theme + xlab(percentage[1]) + ylab(percentage[2]) + scale_shape_manual(values = c(15,17,0,2),labels=c("Salt in Fanggan","Salt in Panjin","Fresh in Fanggan","Fresh in Panjin"))+ stat_ellipse(aes(shape = NULL))+ scale_x_continuous(limits = c(-6,6))+ scale_y_continuous(limits = c(-5,5.

5)) p

2樓:不會畫圖請找我

把分組檔案合併到pca的結果裡,merge函式。

然後用ggplot2在aes裡設定group,shape, color,

後續可用scale_shape_manual之類的調整。

牆繪怎麼畫?

石竹 看了 冰魚 的回答,我也學著在牆上畫了一幅。以前沒學過繪畫,全憑喜歡,下班抽時間畫的,斷斷續續,磕磕絆絆,前後花了三個月才畫完。結合了 神奈川衝浪裡 和 星空 兩幅畫,尺寸為4m 2.5m。先用ps將兩張圖結合起來,再用方格分割,列印在A4紙上 在牆上打上方格,乙個格仔乙個格仔的畫。其實很多事...

繪本館怎麼運營?

童之夢繪本研究院 要有愛心,耐心,責任心。首先要自己喜歡,喜歡了才有熱情,有熱情才能感染家長。其次有耐心,做好長期經營的打算,很難快速見效。最後責任心,打磨好服務,比如課程什麼的,要把課程做好。 娃娃愛閱讀 隨著國內對繪本市場需求的增加,繪本館在國內的各大街道也是隨處可見。儘管市場需求較大,但實體繪...

怎麼混繪圈?

柒紵 我以前混過貓界的繪圈,就是畫 貓武士 書中的貓或者畫者自擬的皮,也有擬人系的,在裡面當了3年的老透明,主要總結了幾點如下 首先就是你得確立自己的發展方向,畫畫之前必須要成立自己的畫風,比如咱們繪貓這裡就分萌系和寫實系,繪畫形式比如指繪板繪手繪等等,包括還有塗色或黑白阿亂七八糟的東西。剛開始就是...