R，循环通过数据框，创建一个具有附加内容的新数据框

Question

注意，对 R 来说很新 - 但我真的很想在 R 而不是 java 中执行此操作。

我的 csv 文件（2020 年瑞典物种红名单）如下所示：

id,svenskt,latin,Organismgrupp,Kategori,Observationer,Landskapstyp,status_abbrev,Rodlistekriterium
249012,,Abia candens,stekel,Art,3,"Jordbrukslandskap (J) - Stor betydelse, Skog (S) - Har betydelse",DD,
249014,,Abia lonicerae,stekel,Art,2,Skog (S) - Stor betydelse,DD,
261452,,Abia nitens,stekel,Art,0,Jordbrukslandskap (J) - Stor betydelse,DD,

• 可以通过点击“skapa csv-fil”按钮从SLU 下载整个 csv 文件。

对我来说有趣的列只有“id”和“status_abbrev”列。 我想使用这些列来更新我的数据库表，做这样的事情：

sql<- paste("update redlist SET status_abbrev='",abbrev,"' ","where id=",id,sep="")

使用此命令读取 csv 文件：

library(dplyr)
redlist <- read.csv("rodlistade_arter_tampered_2.csv",header=TRUE);
dat <- select(redlist,'id', 'status_abbrev')

前 3 行的输出将是：

1. redlist 是一个数据框，包含带有标题的 csv。
2. dat是一个数据框，包含红名单的一个子集（id 和 status_abbrev）。

---

但是哪个库最适合遍历“dat”数据框以创建类似的东西？ 迭代并挑选 abbrev 和 id 并为每一行 创建以下字符串 - （最后我想将这些字符串写入 sql-batch 文件并更新粗糙的 5660 记录）

sql<- paste("update redlist SET status_abbrev='",abbrev,"' ","where id=",id,sep="")

所以我的结果字符串会是这样的（然后遍历整个文件）：

update redlist SET status_abbrev=DD where id=249012

screenshot of redlist 和 dat -

最好的，我

Answer 1

使用dplyr::mutate() 和glue::glue() 你可以创建这样的字符串

library(tidyverse)
library(glue)
#> 
#> Attaching package: 'glue'
#> The following object is masked from 'package:dplyr':
#> 
#>     collapse

str <- 'id,svenskt,latin,Organismgrupp,Kategori,Observationer,Landskapstyp,status_abbrev,Rodlistekriterium
249012,,Abia candens,stekel,Art,3,"Jordbrukslandskap (J) - Stor betydelse, Skog (S) - Har betydelse",DD,
249014,,Abia lonicerae,stekel,Art,2,Skog (S) - Stor betydelse,DD,
261452,,Abia nitens,stekel,Art,0,Jordbrukslandskap (J) - Stor betydelse,DD,'

df <- read_csv(str)

df2 <- df %>% 
  mutate(sql_string = glue("update redlist SET status_abbrev='{status_abbrev}' where id={id}"))

df2
#> # A tibble: 3 x 10
#>       id svenskt latin Organismgrupp Kategori Observationer Landskapstyp
#>    <dbl> <lgl>   <chr> <chr>         <chr>            <dbl> <chr>       
#> 1 249012 NA      Abia… stekel        Art                  3 Jordbruksla…
#> 2 249014 NA      Abia… stekel        Art                  2 Skog (S) - …
#> 3 261452 NA      Abia… stekel        Art                  0 Jordbruksla…
#> # … with 3 more variables: status_abbrev <chr>, Rodlistekriterium <lgl>,
#> #   sql_string <glue>

df2 %>% pull(sql_string)
#> update redlist SET status_abbrev='DD' where id=249012
#> update redlist SET status_abbrev='DD' where id=249014
#> update redlist SET status_abbrev='DD' where id=261452

^{由reprex package (v0.3.0) 于 2020 年 7 月 27 日创建}

这是你要找的吗？

关于数据库集成，请查看DBI。