小编Sco*_*ott的帖子

如何在R中导入ical .ics文件

我想将一个.ics文件导入到R中,但是,当我尝试这样做时...

sneak_cal <- read.delim("iCal-TribeEvents.ics", sep = ":", header=FALSE, stringsAsFactors = FALSE, strip.white = TRUE, na.strings = "")
Run Code Online (Sandbox Code Playgroud)

...我最终也分裂了网站的字符串(属于X-ORIGINAL-URLUID字段),这是不可取的

https//www.kicksonfire.com

最终目标是将数据转换为整齐的格式,其中每行代表一个单独的VEVENT,我认为这将由一个唯一的UID,不会丢失任何信息(如URL)

是否存在另一种建议的方法,例如预先定义期望作为键的字段并将值或空白空间与该键匹配?由于.ics文件每次都具有相同的预期字段,因此将这些字段用作模板来读取数据似乎是有意义的,但我无法弄清楚如何执行此操作.

icalendar r dplyr tidyverse

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

cronr上的预定作业没有运行,日志读取'/ bin/sh:Rscript:command not found'

我正在使用cronr添加RStudio(在Mac OSX 10.11.6 El Capitain上)来安排我的脚本fetch_n_write.R.

如果我从Schedule弹出的选项中选择"一次" ,则立即运行脚本并输出它生成的文件.成功!

如果我尝试将作业安排在2分钟内每天运行,则日志显示它正在运行代码,但随后以"/ bin/sh:Rscript:command not found"结束,并且文件未写入.没有成功.

经过一些搜索,我猜测这必须与权限做一些事情.有人建议 R可能需要重新安装,但which R结果
/usr/local/bin/Rwhich Rscript结果 /usr/local/bin/Rscript我认为这意味着我不应该重新安装R?

macos bash r

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

如何在ggplot2的顶部面板边框添加线条

我希望能够以编程方式为我的情节的最顶部分配一条绿线。

下面我在一个例子中展示了我想要什么,除了线在最底部,而不是顶部。理想情况下,我会theme以类似的方式完成这项工作。

我试图自己完成顶线,panel.border但它需要element_rect一个参数,这意味着情节的另一边也将获得绿线。

虽然最好使用theme,但我愿意使用geom_hline或其他任何东西。当我尝试实施解决方案时geom_hline遇到了麻烦,无法确定 ggplot 计算的 y 轴的最大值,以便将线干净地放在同一位置,而不管从绘图到绘图的比例如何变化。使用我的真实数据,y 轴的刻度变化很大,并且从绘图到绘图具有不同的测量单位。

 library(tidyverse)
 data(mtcars)

 mtcars %>% 
     ggplot(aes(x= mpg, y= disp)) +
     geom_point() +
     theme(axis.line.x= element_line("green", size= 2))
Run Code Online (Sandbox Code Playgroud)

绿线

r ggplot2

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

网页抓取:从下拉列表中选择字段,提取结果数据

尝试在 R 中进行一些网络抓取并可能需要一些帮助。

我想提取此页面表中的数据http://droughtmonitor.unl.edu/MapsAndData/DataTables.aspx

但我想首先从最左侧的下拉列表中选择县,然后从下一个下拉列表中选择阿拉米达县(CA),然后抓取表中的数据。

这是我到目前为止所拥有的,但我想我知道为什么它不起作用 - rvest 表单函数适合填写基本表单,而不是从 .aspx(?) 的下拉菜单中进行选择。四处寻找我想做的事情的例子,但一无所获。

library(rvest)
url       <-"http://droughtmonitor.unl.edu/MapsAndData/DataTables.aspx"       
pgsession <-html_session(url)               
pgform    <-html_form(pgsession)[[1]]       

filled_form <- set_values(pgform,
                      `#atype_chosen span` = "County", 
                      `#asel_chosen span` = "Alameda Count (CA)") 
submit_form(pgsession,filled_form)
Run Code Online (Sandbox Code Playgroud)

无论如何,这给了我一个错误“错误:未知的字段名称:#atype_chosen span,#asel_chosen span”。我有点明白了...我要求 R 在框中输入县,而不打开下拉菜单,这是行不通的。

如果有人能指出我正确的方向,我将不胜感激。

html asp.net r rvest

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

htmlwidgets在html中并排?

说我有两个htmlwidgets

# Load energy projection data
# Load energy projection data
library(networkD3)
URL <- paste0(
        "https://cdn.rawgit.com/christophergandrud/networkD3/",
        "master/JSONdata/energy.json")
Energy <- jsonlite::fromJSON(URL)
# Plot
sankeyNetwork(Links = Energy$links, Nodes = Energy$nodes, Source = "source",
             Target = "target", Value = "value", NodeID = "name",
             units = "TWh", fontSize = 12, nodeWidth = 30)
Run Code Online (Sandbox Code Playgroud)

library(leaflet)
data(quakes)

# Show first 20 rows from the `quakes` dataset
leaflet(data = quakes[1:20,]) %>% addTiles() %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag))
Run Code Online (Sandbox Code Playgroud)

我想将它们并排放置在html页面中。我怎样才能做到这一点?我可以使用iframe吗?其他?

html r r-markdown htmlwidgets

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

排序列表的元素

我有一份清单

str(overlaps)
List of 7
 $ a5: chr [1:6] "calc_a1c" "predmdx_flag" "bmi" "systolic" ...
 $ a2: chr [1:2] "age" "yr"
 $ a4: chr(0) 
 $ a6: chr(0) 
 $ a1: chr [1:2] "trig_3cat" "glipizide_flag"
 $ a3: chr [1:2] "email_flag" "statins_flag"
 $ a7: chr [1:4] "trig_3cat.>=200" "antihtn_flag" "black_flag" "gender.M"
Run Code Online (Sandbox Code Playgroud)

我想重新排序列表,使得结果列表是元素按数字顺序排列的列表.即a1,a2,a3等

r

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

标签 统计

r ×6

html ×2

asp.net ×1

bash ×1

dplyr ×1

ggplot2 ×1

htmlwidgets ×1

icalendar ×1

macos ×1

r-markdown ×1

rvest ×1

tidyverse ×1