Kansas Keeton's questions

假设我有这个示例数据：

library(tidyverse)

colNames <- c('A', 'B')

df <- tibble(A = sample(1:1000, 20),
             A_Direction = 'Decreasing',
             B = sample(1:1000, 20),
             B_Direction = 'Increasing')

我想更改列A，B如果A_DirectionorB_Direction减少，则为 0，如果增加，则为 1。这是我尝试过的：

dfNew <- df %>%
  mutate(across(.cols = matches(paste0('^', colNames, '$')),
                .fns = ~ifelse(test = paste0(cur_column(), '_Direction')=='Decreasing',
                               yes = 0,
                               no = 1)))

但当然，它无法识别该test参数，因为它是一个字符串，因此两列都变成了1。我有什么想法可以通过编程来完成这个任务（OG 数据有很多很多这样的列）。

我喜欢gt将行组分成列的功能，但我希望将两个行组作为列，而不是一列连接两个组（这是默认设置）。例如：

library(gt)

gtcars %>%
  group_by(mfr, year) %>%
  gt(row_group_as_column = TRUE)

这为我们提供了一个gt如下所示的表格，其中品牌和年份连接到一列中。有没有办法有两个单独的分组列，一个用于mfr，一个用于year？

我正在编写一个函数来将数据表转换为长格式。对于cols = 参数，第一列的名称将始终相同，但最后一列（和列数）将会更改。有没有办法在不命名列或不按索引的情况下获取列的“其余”部分？

假设我有这个样本数据：

data <- structure(list(Site = c("A", "B"), Group = c("1", "2"), grip = c("S", 
"H"), height = c("S", "T"), width = c("W", "N"), QA = c("Y", 
"N")), class = "data.frame", row.names = c(NA, -2L))

看起来像这样：

  Site Group grip height width QA
1    A     1    S      S     W  Y
2    B     2    H      T     N  N

有时数据集会有更多列。假设我想获取 columns grip:QA，而不命名 QA，或给出其索引号。我尝试了以下方法：

data %>%
  pivot_longer(cols = grip:everything(),
               names_to = "Name",
               values_to = "value")

但我收到了警告Warning message: In x:y : numerical expression has 6 elements: only the first used，它并没有按照我想要的方式旋转。我想要实现的目标可能吗？

我需要在向量中连续实现几个字符串替换（即，下一个替换基于前一个替换），但我不想多次复制和粘贴，因为我正在尝试优化我的代码块。

我有一个向量：

initNames <- c("A.-.B", "A.B", "A0", "1 2", "AB BC")

我想替换向量中的元素，以便最终输出如下所示：

newNames <- c("A - B", "A B", "Ao", "1.2", "AB.BC")

我可以这样实现：

newNames <- gsub(".-.", " - ", initNames, fixed = TRUE)
newNames <- gsub(".", " ", newNames, fixed = TRUE)
newNames <- gsub("A0", "Ao", newNames, fixed = TRUE)
newNames <- gsub("1 2", "1.2", newNames, fixed = TRUE)
newNames <- gsub("AB BC", "AB.BC", newNames, fixed = TRUE)

但我想以优化的方式做到这一点。我试过这个：

toreplace <- c(".-.", ".", "A0", "1 2", "AB BC")
replacements <- c(" - ", " ", "Ao", "1.2", "AB.BC")

initNames <- initNames %>% as_tibble()

newNames <- purrr::accumulate(initNames,
                          \(x, y) {
                            gsub(x = toreplace, y = replacements, initNames, fixed = TRUE)
                          })

但它只改变了第一个值。我也尝试过使用purrr::map2()，但得到了一个列表，其中每个元素都被替换，但并不基于之前的替换：

newNames <- purrr::map2(toreplace, replacements, ~gsub(.x, .y, initNames, fixed = TRUE))

有人能想出一种方法来实现这一目标吗？

太感谢了！

我还不太了解正则表达式，对于这个项目我没有时间学习它（但打算尽快学习）。假设我有这些文件名作为字符串：

string <- c("2019data/ABC19_XY_10001/finit1/ABC19_XY_10001_FAST (1).csv", 
            "2019data/ABC19_XY_2145/finit2/ABC19_XY_2154_GRABBER (1).csv")

对于此示例，我只想提取下划线后面的数字 ie, 10001and2145以及最后一个单词 ie, FASTandGRABBER并将它们粘贴在一起，如下所示：10001_FASTand 2145_GRABBER。我该怎么做呢？

编辑：文件结构几乎总是这样，除了数值可以是任意位数，末尾的单词可以与命名文件的人一样长。

假设我想在数据集中创建一个class名为 的新标识符，用于计算第 1 组和第 2 组之间吉普车、路虎和斯巴鲁的里程总和。有没有办法在tidyverse中执行此操作，而不将其转换为宽格式？这是一些代码（当然，这不起作用），它显示了我想要实现的目标。outdoorsmpghwy

library(tidyverse)
data(mpg)

mpg_new <- mpg %>%
   mutate(group = rep(c(1,2), times = 117)) %>%
   group_by(group) %>%
   mutate(hwy[class="outdoors"] = sum(hwy[manufacturer=="jeep"], hwy[manufacturer=="land rover"], hwy[manufacturer=="subaru"]))

# class="outdoors" is the new identifier I am trying to create within the class variable

该minAB0列应按照函数中的描述输出mutate()。

data <- data %>%
  group_by(Sample) %>%
  mutate(minAB0 = min(XD_VD+SE, value)) # why is this outputting a different number?

当我在函数之外执行此操作时mutate，它会起作用：

min((data$XD_VD[1] + data$SE[1]), data$value[1]) = 29
min((data$XD_VD[2] + data$SE[2]), data$value[2]) = 36.71198

但是，当我使用tidyverse执行此操作时，我的数字都是错误的（minAB0 = 26forSample=1和minAB0 = 32.98313for Sample=2）。为什么会发生这种情况？有人自己做时会得到正确的输出吗？如果是的话，是如何得到的？

这是我的数据：

data <- structure(list(Sample = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), XD_VD = c(35.9419827146857, 
35.9419827146857, 35.9419827146857, 35.9419827146857, 35.9419827146857, 
35.9419827146857, 35.9419827146857, 35.9419827146857, 35.9419827146857, 
35.9419827146857, 35.9419827146857, 35.9419827146857, 35.9419827146857, 
35.9419827146857, 35.9419827146857, 35.9419827146857, 35.9419827146857, 
35.9419827146857, 35.9419827146857, 35.9419827146857, 35.9419827146857, 
32.1823275467508, 32.1823275467508, 32.1823275467508, 32.1823275467508, 
32.1823275467508, 32.1823275467508, 32.1823275467508, 32.1823275467508, 
32.1823275467508, 32.1823275467508), SE = c(0.77, 0.77, 0.77, 
0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 
0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.77, 0.8008, 0.8008, 0.8008, 
0.8008, 0.8008, 0.8008, 0.8008, 0.8008, 0.8008, 0.8008), value = c(29, 
49, 44, 50, 37, 40, 50, 56, 65, 93, 87, 49, 46, 57, 39, 44, 26, 
30, 45, 44, 98, 70, 59, 70, 77, 55, 50, 33, 58, 71, 68)), row.names = c(NA, 
-31L), class = c("tbl_df", "tbl", "data.frame"))

太感谢了！

我想创建一个字母 AD 重复 5 次的列，但我想将每个字母重复 5 次，而不是重复 AD 5 次。例如，我想要A A A A A B B B B B等，而不是 A B C D A B C D。这是我尝试过的，但它不起作用。

data$group <- rep(c("A",5), ("B",5), ("C",5), ("D",5))

我收到错误：

Error: unexpected ',' in "helpd$Group <- rep(c("A",5), ("B","

所以我的语法有问题。有人知道适当的语法吗？

谢谢你！