我想将一个.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-URL或UID字段),这是不可取的
即https和//www.kicksonfire.com
最终目标是将数据转换为整齐的格式,其中每行代表一个单独的VEVENT,我认为这将由一个唯一的UID,不会丢失任何信息(如URL)
是否存在另一种建议的方法,例如预先定义期望作为键的字段并将值或空白空间与该键匹配?由于.ics文件每次都具有相同的预期字段,因此将这些字段用作模板来读取数据似乎是有意义的,但我无法弄清楚如何执行此操作.
我正在使用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/R和which Rscript结果
/usr/local/bin/Rscript我认为这意味着我不应该重新安装R?
我希望能够以编程方式为我的情节的最顶部分配一条绿线。
下面我在一个例子中展示了我想要什么,除了线在最底部,而不是顶部。理想情况下,我会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 中进行一些网络抓取并可能需要一些帮助。
我想提取此页面表中的数据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 在框中输入县,而不打开下拉菜单,这是行不通的。
如果有人能指出我正确的方向,我将不胜感激。
说我有两个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吗?其他?
我有一份清单
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等