#气泡图
#气泡图
library(ggplot2)
library(reshape2)
data=as.data.frame(read.table("PCA_testdata.txt",header = T,sep="\t" ,check.names=FALSE))[c(1:10),]
y=melt(data
#气泡图
#气泡图
library(ggplot2)
library(reshape2)
data=as.data.frame(read.table("PCA_testdata.txt",header = T,sep="\t" ,check.names=FALSE))[c(1:10),]
y=melt(data