时间戳

首页 > 解决方案 > 代码逐行运行良好，但在 rmarkdown 中作为一个整体运行时失败

r - 代码逐行运行良好，但在 rmarkdown 中作为一个整体运行时失败

问题描述

当我只运行这行代码时，结果符合预期。当我运行块时，突变在第三行停止。我该如何解决这个问题，我觉得这是我以前用相同的代码没有遇到过的新东西。

样本数据：

> dput(head(out))
structure(list(SectionCut = c("S-1", "S-1", "S-1", "S-1", "S-2", 
"S-2"), OutputCase = c("LL-1", "LL-2", "LL-3", "LL-4", "LL-1", 
"LL-2"), V2 = c(81.782, 119.251, 119.924, 96.282, 72.503, 109.595
), M3 = c("-29.292000000000002", "-32.661999999999999", "-30.904", 
"-23.632999999999999", "29.619", "32.994"), id = c("./100-12-S01.xlsx", 
"./100-12-S01.xlsx", "./100-12-S01.xlsx", "./100-12-S01.xlsx", 
"./100-12-S01.xlsx", "./100-12-S01.xlsx")), row.names = c(NA, 
-6L), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), groups = structure(list(
SectionCut = c("S-1", "S-1", "S-1", "S-1", "S-2", "S-2"), 
OutputCase = c("LL-1", "LL-2", "LL-3", "LL-4", "LL-1", "LL-2"
), id = c("./100-12-S01.xlsx", "./100-12-S01.xlsx", "./100-12-S01.xlsx", 
"./100-12-S01.xlsx", "./100-12-S01.xlsx", "./100-12-S01.xlsx"
), .rows = list(1L, 2L, 3L, 4L, 5L, 6L)), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))

> dput(head(Beamline_Shear))
structure(list(VLL = c(159.512186, 154.3336, 149.4451613, 167.0207595, 
161.2269091, 156.4116505)), row.names = c("84-9", "84-12", "84-15", 
"92-9", "92-12", "92-15"), class = "data.frame")

我试图运行的代码：

Shear <- out[,-4] %>% mutate(N_l = str_extract(OutputCase,"\\d+"), 
                          UG = str_extract(id,"\\d+"), a = str_extract(id,"-\\d+"),
                          S = str_extract(a,"\\d+"), Sections = paste0(UG,"-",S),
                          Sample = str_remove_all(id, "./\\d+-\\d+-|.xlsx")) %>%
  left_join(Beamline_Shear %>% rownames_to_column("Sections"), by = "Sections") %>% 
  select(-OutputCase,-id,-Sections,-a)

标签： rdataframedplyr

解决方案

数据中有一些组属性应该可以正常工作，但如果我们在不同的环境中运行，则可能会出现问题。此外，mutate步骤和连接步骤实际上并不需要任何分组属性，因为它们是非常简单的矢量化行操作。

library(dplyr)
out %>% 
    select(-4) %>%
    ungroup  %>% # // removes group attributes
    mutate(N_l = str_extract(OutputCase,"\\d+"), 
                           UG = str_extract(id,"\\d+"), a = str_extract(id,"-\\d+"),
                           S = str_extract(a,"\\d+"), Sections = paste0(UG,"-",S),
                           Sample = str_remove_all(id, "./\\d+-\\d+-|.xlsx")) %>% left_join(Beamline_Shear %>% rownames_to_column("Sections"), by = "Sections")
# A tibble: 6 x 11
#  SectionCut OutputCase    V2 id                N_l   UG    a     S     Sections Sample   VLL
#  <chr>      <chr>      <dbl> <chr>             <chr> <chr> <chr> <chr> <chr>    <chr>  <dbl>
#1 S-1        LL-1        81.8 ./100-12-S01.xlsx 1     100   -12   12    100-12   S01       NA
#2 S-1        LL-2       119.  ./100-12-S01.xlsx 2     100   -12   12    100-12   S01       NA
#3 S-1        LL-3       120.  ./100-12-S01.xlsx 3     100   -12   12    100-12   S01       NA
#4 S-1        LL-4        96.3 ./100-12-S01.xlsx 4     100   -12   12    100-12   S01       NA
#5 S-2        LL-1        72.5 ./100-12-S01.xlsx 1     100   -12   12    100-12   S01       NA
#6 S-2        LL-2       110.  ./100-12-S01.xlsx 2     100   -12   12    100-12   S01       NA

推荐阅读