Сначала я извлек файл Excel
library(readxl)
EXCEL_FILE <- read_excel("Excel_file.xlsx")
В исходном файле есть столбец с текстом и его длина составляет до 100. Я создал скрипт, который может распознавать определенные c слова в этом текст, как «Да» или «Нет».
library(dplyr)
Count<-agrepl("Yes",EXCEL_FILE$Narrative)|agrepl("No",EXCEL_FILE$Narrative)
Я получил количество ИСТИННЫХ значений, которые удовлетворяет аргумент. Следующим шагом, который я хотел бы сделать, является сценарий R, распознающий эти «истинные» строки и извлекающий всю строку в новый файл Excel.
Я знаю, как вытащить файл, поэтому мне нужен скрипт между предыдущим и следующим.
library(xlsx)
write.xlsx(EXCEL_FILE, file= "Complete.xlsx")