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

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大神好！请问“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)

2015-9-4 16:41:01 上传

绘图数据

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：R语言 散点图 EXCEL xcel exce 散点图 如何

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


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

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

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

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 & 效果图 见附件 ：）

ZhandaYang 发表于 2015-9-5 16:47
setwd("~/Documents")
data

您好！非常感谢您的帮助！再请教一个问题：“test$class <- rep(1:4,each=5)”中如果第1、2、3、4组数据分别仅有前4、2、3、1行数据，也就是说第一组数据只有前4行、第二组只有前两行、第三组只有前三行、第四组只有一行，现有程序该如何变换呢？其余代码需要做相应修改吗？谢谢！

ZhandaYang 发表于 2015-9-5 16:47
setwd("~/Documents")
data

学习了！

zhgg1607099163 发表于 2015-9-6 10:20
您好！非常感谢您的帮助！再请教一个问题：“test$class

你的理解是正确的，你可以把each=5去掉，就默认全选了