R语言如何绘制多组散点图？

33706

收藏 2015-09-04

各位大神好！请问“Excel绘制示例”图如何用R语言实现？望给出具体编写代码，谢谢！主要要求：1 以(X,Y)确定散点位置，Z确定散点大小；2 每组数据用不同标识符标记；3 绘制内框，距X,Y边缘5个单位；4 其余同Excel示例图中所示。

第一组数据			第二组数据			第三组数据			第四组数据
x1	y1	z1	x2	y2	z2	x3	y3	z3	x4	y4	z4
22	31	5	33	7	8	8	38	5	47	4	23
32	33	6	16	20	9	15	23	8	44	2	5
11	42	6	20	23	12	24	43	9	3	48	5
10	26	7	25	44	13	29	23	9	4	49	7
40	13	8	12	18	14	7	22	12	2	46	8

Excel绘制示例：

数据.txt
大小:(307 Bytes)

马上下载

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

allain

2015-9-5 00:17:29

data_me<-read.table("～/me.txt",header = TRUE)
library(ggplot2)
qplot(x,y,data = data_me,geom = "point",size = z, pch = no,col = no)

你要的内框不会，请高手帮忙

附件列表

me.txt

大小:325 Bytes

马上下载

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

zhgg1607099163

2015-9-5 09:27:54

allain 发表于 2015-9-5 00:17
data_me

您好！出现“Error in eval(expr, envir, enclos) : 找不到对象'no'”是咋么回事呢?该如何解决？谢谢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

ZhandaYang

2015-9-5 16:47:13

setwd("~/Documents")
data <- read.csv("test.csv",sep = ",",header = T)

# Convert data, from wide to long
colnames(data) <- rep(c('x','y','z'),4)
test <- rbind(data[,1:3],data[,4:6],data[,7:9],data[,10:12])
test$class <- rep(1:4,each=5)

require(ggplot2)

ggplot(test) +
  geom_rect(xmin=5,xmax=45,ymin=5,ymax=45,fill='lightgreen',alpha=0.01) +
  geom_point(aes(x=as.numeric(x),
               y=as.numeric(y),
               shape=as.factor(class),
               color=as.factor(class),
               fill=T,
               size=as.numeric(z))) +
  scale_shape_manual(values=c(1:4))

——————————————————————————————————————
data & 效果图见附件：）

附件列表

屏幕快照 2015-09-05 16.45.40.png

原图尺寸 107.49 KB

ggplot2