Я работаю с объектом xlsx в r, для простоты в таблице excel есть один столбец, который выглядит следующим образом:
comments_column
this is a comment ||| this another comment
this is a bad comment ||| this a comment ||| this is a great comment
this is just another comment ||| this is a comment
this is a great comment ||| this is another comment
Я импортирую Excel следующим образом:
library(readxl)
fname <- 'SomeExcelFile.xlsx'
sheet <- 'sheet1'
wb <- read_excel(fname,sheet)
Как вы можете видеть в примере столбца, есть только несколько уникальных комментариев, которые повторяются: «это комментарий», «это другой комментарий», «это плохой комментарий», «это отличный комментарий »,« это просто еще один комментарий ».
В каждой ячейке комментарии разделяются символом «|||». Я хотел бы применить функцию для каждой ячейки в столбце, которая окрашивается в красный цвет каждого комментария, который встречается во второй или более раз. Комментарии в ячейках с разделителями '|||'
Столбец будет выглядеть так:
comments_column
this is a comment ||| this another comment
this is a bad comment ||| this a comment <- in red font ||| this is a great comment
this is just another comment ||| this is a comment <- in red font
this is a great comment <- in red font ||| this is another comment <- in red font
Алгоритм, который я имею в виду, проходит через каждую ячейку и каждый комментарий (как разделено '|||') в строке и имеет некоторый массив дублированных комментариев. По мере прохождения каждого комментария, если комментарий существует в массиве, то раскрасьте его красным, если нет, то добавьте его в массив.