小编rog*_*s77的帖子

我有一个类似于以下内容的数据集：

我想从星期一的相应值中减去所有星期二的值。因此，生成的第一列将为 Monday_1 - Tuesday_1，生成的第二列将为 Monday_2 - Tuesday_2，依此类推。

这是生成的数据框的样子。

我想保持星期一列的名称相同并选择星期二列。我的真实数据集比这要宽得多，因此不必手动减去要容易得多。理想情况下我想要一个dplyr解决方案。

数据：

df <- structure(list(id = 1:7, Monday_1 = c(4L, 11L, 18L, 6L, 20L, 
5L, 12L), Monday_2 = c(20L, 3L, 20L, 12L, 1L, 10L, 15L), Monday_3 = c(14L, 
20L, 8L, 17L, 4L, 2L, 3L), Monday_4 = c(13L, 8L, 11L, 3L, 12L, 
14L, 17L), Tuesday_1 = c(1L, 14L, 7L, 16L, 2L, 6L, 12L), Tuesday_2 = c(10L, 
8L, 1L, 16L, 10L, 13L, 9L), Tuesday_3 = c(4L, 9L, 9L, 8L, 7L, 
9L, …

我正在使用 ggplot/geom_point 创建散点图。这是我在 ggplot 中构建函数的代码。

AddPoints <- function(x) {
    list(geom_point(data = dat , mapping =  aes(x = x, y = y) , shape = 1 , size = 1.5 ,
color = "blue"))
} 

我想知道是否可以用数字替换图中的标准点。也就是说，您不会在图中看到一个点，而是会在图中看到一个数字来表示每个观察结果。我希望该数字对应于该给定观察的列（列名“RP”）。提前致谢。

样本数据。

 Data <- data.frame(
    X = sample(1:10),
     Y = sample(3:12),
    RP = sample(c(4,8,9,12,3,1,1,2,7,7)))