将字符附加到数据框中列中的特定位置

Question

我有这样的数据框

df <- data.frame(
       'Week' = c(27,28,29),
       'date' = c("2019-W (01-Jul)","2019-W (08-Jul)","2019-W (15-Jul)"))

我需要在日期列

中的W之后追加周列

expecteddf <- data.frame(
       'Week' = c(27,28,29),
       'date' = c("2019-W27 (01-Jul)","2019-W28 (08-Jul)","2019-W29 (15-Jul)"))

如何在 R 中实现这一点？

提前致谢！！

Answer 1

您可以将 paste0 与 sub 组合使用，即

 paste0(sub(' .*', '', df$date), df$Week, sub('.* ', ' ', df$date))
#[1] "2019-W27 (01-Jul)" "2019-W28 (08-Jul)" "2019-W29 (15-Jul)"

Answer 2

有了stringr::str_replace，替换可以向量化：

library(stringr)

df$date = str_replace(df$date, "W", paste0("W", df$Week))
df
#   Week              date
# 1   27 2019-W27 (01-Jul)
# 2   28 2019-W28 (08-Jul)
# 3   29 2019-W29 (15-Jul)

或者，我们可以采用日期格式化方法。将您的 date 列转换为实际的 Date class（下面的 df$Date），然后我们可以将实际的 Date 转换为您想要的格式（或任何其他格式） ).

df$Date = as.Date(df$date, format = "%Y-W (%d-%b)")
df$result = format(df$Date, format = "%Y-W%V (%d-%b)")
df
#   Week            date       Date            result
# 1   27 2019-W (01-Jul) 2019-07-01 2019-W27 (01-Jul)
# 2   28 2019-W (08-Jul) 2019-07-08 2019-W28 (08-Jul)
# 3   29 2019-W (15-Jul) 2019-07-15 2019-W29 (15-Jul)

Answer 3

基本 R 选项使用：

gsub + Vectorize

expecteddf <- within(df,date <- Vectorize(gsub)("W",paste0("W",Week),date))

gsub + mapply

expecteddf <- within(
  df,
  date <- mapply(function(x, p) gsub("(.*W)(\s.*)", sprintf("\1%s\2", p), x), date, Week)
)

Answer 4

您可以在 str_c

中使用 mutate

library(tidyverse)
df %>% 
  mutate(date = str_c(str_sub(date,1,6),
                       Week,
                       str_sub(date,7)))

Answer 5

base 解决方案 sub(..., perl = T):

within(df, date <- Vectorize(sub)("(?<=W)", Week, date, perl = T))

注：

"(?<=W)"匹配"W".
sub()的前两个参数不能向量化，所以这里需要Vectorize()或mapply()

对应的str_replace()版本，矢量化。

library(dplyr)
library(stringr)

df %>%
  mutate(date = str_replace(date, "(?<=W)", as.character(Week)))

输出

#   Week              date
# 1   27 2019-W27 (01-Jul)
# 2   28 2019-W28 (08-Jul)
# 3   29 2019-W29 (15-Jul)

Answer 6

在基础 R 中，您还可以使用 regmatches + regexpr 检查解决方案以详细说明模式 (?<=W)

regmatches(df$date, regexpr("(?<=W)", df$date, perl = TRUE)) <- df$Week
df
  Week              date
1   27 2019-W27 (01-Jul)
2   28 2019-W28 (08-Jul)
3   29 2019-W29 (15-Jul)

将字符附加到数据框中列中的特定位置

Append a character to a specific location in a column in a data frame

concat

r

gsub