先要请你确认如何决定个数；我以下假设个数是指同x同y列的列数。 你可以先生成一个浓缩的资料框并计算个数，再用它来画图。 library(readxl) library(ggplot2) library(dplyr) testdata <- read_excel("testdata.xlsx")[, 1:2] d.by.x.y <- testdata %>% # 按同oldsensor且同newsensor分组求N group_by(oldsensor, newsensor) %>% summarise( oldsensor = mean(oldsensor), newsensor = mean(newsensor), #mean在此例没有特别意义，就只是取出值 N = n()) %>% # 列顺序按N大小，对之後画图有重要效果（让深色在上层而浅色在下层） arrange(N) ggplot(d.by.x.y, aes(newsensor, oldsensor)) + geom_point(aes(color = N), shape = 15, size = 2) + # size 大一点会比较「满」 coord_fixed() + geom_abline(slope = 1, intercept = 0) + scale_colour_steps(low = "#fef0d9", high = "#d7301f", breaks = seq(0, 30, 1)) + theme_classic() + theme(legend.key.size = unit(1.5, "cm")) + xlim(c(24, 32)) + ylim(c(24, 32)) 结果： https://i.imgur.com/YUTWPuA.png ※ 引述《studioA (understand?)》之铭言： : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 我想画一张散布图，其中每个点的颜色呈现，以个数为基准 : 我想要图片呈现如下 : https:// i.imgur.com/kRXLERk.png : 我用ggplot2来绘制，但总是画不出自已要的效果 : 不知道哪里卡关 只好上来求助各位 : [程式范例]: : setwd("D:/R_workspace") : library(readxl) : testdata <- read_excel("test.xlsx") : library(ggplot2) : my.plot1 <- ggplot(testdata, aes(newsensor,oldsensor, colour = oldsensor)) + : geom_point() : my.plot1 : 结果出现 这种图 https:// i.imgur.com/vZaVGSv.png : 参考档案 放在 ppt.cc/fAmkbx : [环境叙述]: : 请提供 sessionInfo() 的输出结果， : 里面含有所有你使用的作业系统、R 的版本和套件版本资讯， : 让版友更容易找出错误 : : [关键字]: : : 选择性，也许未来有用 : --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.248.222.1 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1634636428.A.397.html