我在R中有一个名为likes的变量(从Rfacebook包中检索)。这个变量包含我自己喜欢的所有字符。我已将此变量转换为因子变量,以便我可以对其进行分析。虽然,为了我的项目,我需要将标题中的所有3个不同的喜欢作为数据框中的单独变量,只有我自己作为一行。
上下文: 如果将比我更多的人添加到数据框中,那么这些其他人的喜欢也应该作为变量添加,并且这些单元格都填入了名称该页面如果他们喜欢该页面则为NA,如果他们不喜欢该页面。
非常感谢帮助!
问题在于:当我从facebook检索数据时,likes列返回NA,因为它包含的数据存在多个字符(三个喜欢),如here所示。
然后我运行以下代码:
me <- getUsers("1131454363567865",token=fb_oauth, private_info = TRUE)
my_likes <- getLikes(user="me", token=fb_oauth)
likes <- as.factor(my_likes$names)
dflikes <- as.data.frame(likes)
然后我最终得到一个data.frame,其中3个列表列在一列中,而我实际上希望将这3个不同的因子级别转换为3个新变量。因此,如here所示,在名称,性别等其他变量旁边排列。
以下是整个代码的样子:
# Set up APP connection
install.packages("devtools")
library(devtools)
install_github("Rfacebook", "pablobarbera", subdir="Rfacebook")
require("Rfacebook")
fb_oauth <- fbOAuth(app_id="**", app_secret="**", extended_permissions = TRUE, legacy_permissions = TRUE)
save(fb_oauth, file="fb_oauth")
load("fb_oauth")
# Retrieve own user information
me <- getUsers("1131454363567865",token=fb_oauth, private_info = TRUE)
my_likes <- getLikes(user="me", token=fb_oauth)
likes <- as.factor(my_likes$names)
dflikes <- as.data.frame(likes)