你可以使用tidyverse的dplyr来实现这一点。您所需要的只是mutate函数，以便使用来自dplyr的if_else操作events列。在下面的代码中，我说，如果events是“strikeout”，请替换为“description”中的相应值：

library(dplyr)

data <- data.frame(
  "events" = c(
    "strikeout",
    "swinging_strike", "ball", "called_strike",
    "hit_into_play", "strikeout"
  ),
  "description" =
    c(
      "swinging_strike", "swinging_strike",
      "ball", "called_strike", "double_play",
      "called_strike"
    )
)

data <- data %>% 
  mutate(events = if_else(events == "strikeout", description, events))

如果你不想承担任何依赖关系，你可以使用base R，如下所示：

data$events[which(data$events == "strikeout")] <- data$description[which(data$events == "strikeout")]

library(dplyr)

data %>% 
      mutate(events = case_when(
        events == 'strikeout' ~ description,
        TRUE ~ events
      ))

如果有多个条件，也可以使用case_when（）。