小编Ray*_*S. 的帖子

如何使用map()with possible()

我使用map()以下代码从Facebook获取发布数据:

posts_data <- map(posts$query_id, getPost, token = fb_oauth, n = 1000)
Run Code Online (Sandbox Code Playgroud)

但是,有些query_id观察结果不正确,或者是API无法检索的共享事件,并给出了如下错误:

Error in callAPI(url = url, token = token, api = api) : 
  Unsupported get request. Object with ID '1816137521765810_1832190963493790' does not exist, cannot be loaded due to missing permissions, or does not support this operation. Please read the Graph API documentation at https://developers.facebook.com/docs/graph-api
Run Code Online (Sandbox Code Playgroud)

我知道我可以possibly()在返回那些错误的输出时继续调用,这样函数就不会停止.但我不知道如何使用possibly()map()在一起,因为可能是()只需要一个函数作为参数,并且不允许我传递额外的参数给这个函数.

r purrr rfacebook

5
推荐指数
1
解决办法
377
查看次数

在R中仅提取一个已知字符串之间的字符串

我想在两个其他字符串之间提取一个字符串.一个字符串是回车符,而另一个字符串是几乎相似字符的变体:

dput(head(decisions$Title))
c("Zinaida Shumilina et al. v. Belarus                    \r\n                    
CCPR/C/120/D/2142/2012", 
"K.E.R. vs. Canada                    \r\n                    
CCPR/C/120/D/2196/2012", 
"Lounis Khelifati v Algeria                    \r\n                    
CCPR/C/120/D/2267/2013", 
"Hibaq Said Hash v. Denmark                    \r\n                    
CCPR/C/120/D/2470/2014", 
"Anton Batanov v. Russian Federation                    \r\n                    
CCPR/C/120/D/2532/2015", 
"S. Z. v. Denmark                    \r\n                    
CCPR/C/120/D/2625/2015"
)
Run Code Online (Sandbox Code Playgroud)

我基本上想要在"v."之间提取国家名称.和回车\ r.但是,"v." 有时是"v","vs.","vs"和"v:".

基于相关SO问题的答案,我尝试了以下方法:

res <- str_match(decisions$Title, "(v\\.|vs\\.|v)(.*?)\\r")
res[,3]
Run Code Online (Sandbox Code Playgroud)

不幸的是,这并没有得到所有的变化,或者在某些情况下,当试图从"Navruz Tahirovich Nasyrlayev诉土库曼斯坦CCPR/C/117/D /"中提取国名时,它会返回诸如"ruz Tahirovich Nasyrlayev诉土库曼斯坦"之类的数据.二千零十二分之二千二百十九" .

还有另一种方法来实现这一目标吗?

regex r stringr

2
推荐指数
1
解决办法
66
查看次数

特定geom_node_text的绘图标签

我正在尝试绘制网络图,并仅显示具有高于特定阈值的中心得分的geom_node_text标签。我的代码如下:

rt_tbl %>% 
mutate(centrality = centrality_authority()) %>% 
ggraph(layout = 'kk') + 
geom_edge_link(aes(), colour = "gray", alpha = 0.5) + 
geom_node_point(aes(size = centrality, colour = centrality)) + 
geom_node_text(data=subset(centrality > 0.6), aes(centrality, label=name)) + 
theme_graph(base_family = "Roboto Condensed", base_size = 13)
Run Code Online (Sandbox Code Playgroud)

我遇到以下错误:

Error in subset(centrality > 100) : object 'centrality' not found
Run Code Online (Sandbox Code Playgroud)

我的数据如下所示:

# A tbl_graph: 1589 nodes and 3992 edges
# A directed multigraph with 3 components
# Node Data: 1,589 x 3 (active)
        name degree centrality
        <chr>  <dbl>      <dbl>
1 …
Run Code Online (Sandbox Code Playgroud)

r ggplot2 ggraph tidygraph

1
推荐指数
2
解决办法
932
查看次数

将Unicode转换为R中的可读字符

我有一个.csv,其中使用时编码会返回“未知”和“ UTF-8” Encoding(data)。文本如下所示:

<U+1042><U+1040><U+1042><U+1040> <U+1019><U+103D><U+102C>\n\n<U+1010><U+102D><U+102F><U+1004><U+1039><U+1038><U+103B><U+1015><U+100A><U+1039><U+1000><U+102D><U+102F><U+101C><U+1032> <U+1000><U+102C><U+1000><U+103C>

我想将其转换为可读的格式,在这种情况下为缅甸语言,因此看起来有点像这样:

??????????????

奇怪的是,该数据中的文本以前在RStudio中是可读的,但是在某些时候-我不知道什么时候-这种情况发生了变化,现在我只能看到Unicode字符。我尝试了这些解决方案,但没有成功。

unicode r utf-8

1
推荐指数
1
解决办法
1106
查看次数

标签 统计

r ×4

ggplot2 ×1

ggraph ×1

purrr ×1

regex ×1

rfacebook ×1

stringr ×1

tidygraph ×1

unicode ×1

utf-8 ×1