R语言DataFrame问题：Cypher语句变量值异常显示为1,2,3

这个问题的核心在于两个关键点：一是by_row传递给函数的行数据结构，二是因子类型的自动转换行为。让我们一步步拆解：

问题原因分析 #

1. 行数据的结构误解：当你用by_row处理数据框时，每一个x参数其实是一个包含整行数据的tibble（或列表）。你用x[1]取到的并不是单个字符串值，而是一个只有一行的因子列对象。
2. 因子类型的隐式转换：你的SCREEN_NAME列是因子类型（输出里的<fct>标记），当你把这个因子列直接拼接到字符串中时，R会自动把它转换成对应的水平索引（1、2、3），而不是实际的用户名文本。

从你的输出就能验证这一点：print(name1)显示的是tibble结构的因子列，而非单纯的字符串，这就导致拼接Cypher语句时取到了索引值。

解决方案 #

我们需要从两个方面修正代码：

1. 读取数据时避免自动转为因子 #

在read.table中添加stringsAsFactors = FALSE，直接把文本列读成字符类型：

d <- read.table("c:/sajudentick/tm/neoTest.txt", header = TRUE, sep = "", stringsAsFactors = FALSE)

如果使用readr包的read_table会更省心，它默认不会将字符串转为因子。

2. 正确提取单行中的用户名值 #

在checkNode函数里，我们需要从tibble行中提取出单个字符值，而非列对象。可以用pull()函数或者直接提取列元素：

checkNode <- function(x, graph, type) {
  # 提取单个用户名值，转成字符类型（保险起见）
  name1 <- as.character(pull(x, SCREEN_NAME))
  print(typeof(name1))
  print(name1)
  # 拼接Cypher语句
  cipher <- paste0("MATCH (n:",type,") WHERE n.username IN ['" ,name1 , "'] RETURN n")
  print(cipher)
  node_gr <- getNodes(graph,cipher)
  print(is.null(node_gr))
  if (is.null(node_gr)) {
    print("created")
    node_gr <- createNode(graph = graph, .label = type, x)
  }
  return(node_gr)
}

如果你不想用pull，也可以用x$SCREEN_NAME[[1]]直接取出单个值（因为x是单行tibble，x$SCREEN_NAME是长度为1的向量，[[1]]用于提取元素）。

修改后的运行效果 #

调整后，name1会变成单纯的字符类型，拼接出来的Cypher语句就会是：

[1] "character"
[1] "bdaff"
[1] "MATCH (n:User) WHERE n.username IN ['bdaff'] RETURN n"

这样就能正确匹配用户名，而不是索引值了。

另外，如果你用purrr包的pmap或者rowwise()替代by_row，代码会更简洁易懂，比如：

people_nodes <- d %>% 
  rowwise() %>%
  mutate(node = list(checkNode(cur_data(), graph = graph, type = "User"))) %>%
  ungroup()

cur_data()会传递当前行的单个数据框，提取值的方式和之前一致。

内容的提问来源于stack exchange，提问作者saju