I'm really sorry but I'm having an issue with the code. The real structure of the file is like that (the previous example was slightly different):
data.frame(stringsAsFactors=FALSE,
URN = c("10BE012112713", "10BE012112713", "10BE012112713",
"10BE012112713", "10BE012113466"),
Language = c("FR", "FR", "FR", "FR", "FR"),
QUESTION = c("Facilities", "Recommendation", "Staff", "Choice Dealer",
"Recommendation"),
Org = c("Locaux", "Recommandation concession", "Collaborateurs",
"Choix de la concession",
"Recommandation concession"),
VERBATIM = c("aaa", "ccc", "ddd", "fff", "ggg"),
Sent1 = c("0", "+", "+", NA, "-"),
Cat1 = c(998, 32, 7, NA, 10),
Sent2 = c(NA, "-", NA, NA, "-"),
Cat2 = c(NA, 11, NA, NA, 11),
Sent3 = c(NA, "-", NA, NA, "-"),
Cat3 = c(NA, 11, NA, NA, 12),
Sent4 = c(NA, "-", NA, NA, "-"),
Cat4 = c(NA, 32, NA, NA, 12),
Sent5 = c(NA, "-", NA, NA, "-"),
Cat5 = c(NA, 32, NA, NA, 32),
Sent6 = c(NA, NA, NA, NA, "-"),
Cat6 = c(NA, NA, NA, NA, 32),
Sent7 = c(NA, NA, NA, NA, "-"),
Cat7 = c(NA, NA, NA, NA, 32),
Sent8 = c(NA, NA, NA, NA, "-"),
Cat8 = c(NA, NA, NA, NA, 35),
Sent9 = c(NA, NA, NA, NA, "-"),
Cat9 = c(NA, NA, NA, NA, 47),
Sent10 = c(NA, NA, NA, NA, "-"),
Cat10 = c(NA, NA, NA, NA, 9)
)
unfortunately, applying this code:
tdat %>%
pivot_longer(
matches("Cat\\d|Sent"),
names_to = c(".value", "set"),
names_pattern = "([:alpha:]+)([:digit:]+)"
) %>%
na.omit() %>%
filter(Sent == "-") %>%
select(-set, -Sent) %>%
count(URN, QUESTION, Cat) %>%
pivot_wider(names_from = c(QUESTION, Cat), values_from = n)library(tidyverse)
generates this error:
Error: unexpected symbol in:
" count(URN, QUESTION, Cat) %>%
pivot_wider(names_from = c(QUESTION, Cat), values_from = n)library"
What am I doing wrong? How can I keep "Sent"?