对数据框中的文本列执行聚类

Question

我有一个数据框 (df)，它有两列名为“id”和“text”

id  text
1   TV
2   Tv
3   T.V
4   Radio/TV
5   Car
6   CAR
7   car 

我想在“文本”列中标记/标记相似类型的行

预期输出：

id  text     type
1   TV       tv
2   Tv       tv
3   T.V      tv
4   Radio/TV tv
5   Car      car
6   CAR      car
7   car      car

我在研究时发现了以下内容，我得到了这里的逻辑并且它也执行了，但我不知道如何重新创建我的想法（预期输出）

# Importing the library
library(tm)

# Importing the data
corpus.tmp<-Corpus(VectorSource(df$text))

#Cleaning up
corpus.tmp<- tm_map(corpus.tmp,removePunctuation)
corpus.tmp<- tm_map(corpus.tmp, stripWhitespace)
corpus.tmp <- tm_map(corpus, content_transformer(tolower))
corpus.tmp<- tm_map(corpus.tmp, removeWords, stopwords("english"))

# Document Matrix
TDM <- TermDocumentMatrix(corpus.tmp)
inspect(TDM)

tdm_tfxidf<-weightTfIdf(TDM)

# Converting to matrix
m<- as.matrix(tdm_tfxidf)
rownames(m)<- 1:nrow(m)

norm_eucl<- function(m)
  m/apply(m,1,function(x) sum(x^2)^.5)

m_norm<-norm_eucl(m)

# Performing K means clustering
results<-kmeans(m_norm,5,5)

Answer 1

如果文本列任何一个包含带有car或tv的字符串，在任何带有特殊字符的情况下，您可以删除特殊字符并检查字符串是否包含tv或@ 987654324@:

## Your dataframe
df <- data.frame(id = seq(7), text = c("tv","TV","T.v","Radio/TV","Car","car","CAR"))

## Remove special characters
df$text <- gsub("[[:punct:]]", "", df$text)

## Logicals for which df$text contain "tv" or "car"
tv <- grepl("tv",df$text,ignore.case = TRUE)
car <- grepl("car",df$text,ignore.case = TRUE)

## Create df$type column and assign values
df$type[tv] <- "tv"
df$type[car] <- "car"

如果您有更多名称要检查，您可以将最后两个步骤收集到 sapply，但是这种方法不是防故障的 - 例如如果文本包含类似cartv 的内容。