我使用crontask定期运行Rscript.不幸的是,我需要在一个小的aws实例上执行此操作,并且该过程可能会挂起,在彼此之上构建越来越多的进程,直到整个系统滞后.
我想写一个crontask来杀死持续时间超过一分钟的所有R进程. 我在Stack Overflow上找到了另一个答案,我已经调整过,我认为可以解决这个问题.我想出来了;
if [[ "$(uname)" = "Linux" ]];then killall --older-than 1m "/usr/lib/R/bin/exec/R --slave --no-restore --file=/home/ubuntu/script.R";fi
我直接从htop复制了任务,但它没有按照我的预期工作.我收到No such file or directory错误,但我已经检查了几次.
我需要杀死持续时间超过一分钟的所有R进程.我怎样才能做到这一点？
TL; DR:如何保存绘图轴文本和大小等等,以使我的代码缩短？
比方说,我想用不同的geom绘制不同的数据,但使用相同的轴文本大小和标题.
它在组成代码中看起来像这样
ggplot(data = df, aes(x = x, y = y) + geom_line() +
ylab("my y axis") +
xlab("my x axis") +
opts(title = "my title") +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=14,face="bold"))
ggplot(data = new_df, aes(x = whatever, y = something) + geom_anythingelse() +
ylab("my y axis") +
xlab("my x axis") +
opts(title = "my title") +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=14,face="bold"))
#...
我怎么能保存
my_theme <- ylab("my y axis") +
xlab("my x axis") +
opts(title = "my title") +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=14,face="bold"))
作为我自己的对象,我喜欢时添加到ggplot.ggplot是否足够灵活以满足我的需求？
ggplot(data = …是什么让我的小闪亮应用程序显示我的ggplot？当我使用基本绘图函数替换renderPlot()中的代码时,它汇集在一起.我在Windows Vista上使用RStudio,R v3.0.1,输出到Chrome浏览器.
ui.r
library(ggplot2)
cities <- c("Anchorage","Fairbanks","Juenau","Wasilla","Homer")
years <- 2003:2013
Table <- "Capital Assets"
Account <- c("Land", "Art", "Buildings", "Equipment")
dat <- data.frame(City = sort(rep(cities, length(years))), Year = rep(years,length(cities)), Table)
sampleDat <- rbind(data.frame(dat,Acount = Account[1]), data.frame(dat, Acount = Account[2]), data.frame(dat, Acount = Account[3]), data.frame(dat, Acount = Account[4]))
finalDat <- data.frame(sampleDat, Value = runif(length(sampleDat[,1]), 1000,10000) )
shinyUI(pageWithSidebar(
headerPanel("CAFR Explorer"),
selectInput("city","City", as.list(levels(finalDat$City)), selected = NULL, multiple = FALSE),
mainPanel(
h3(textOutput("caption")),
plotOutput("CAFRplot")
)))
server.r
library(shiny)
library(ggplot2)
cities <- c("Anchorage","Fairbanks","Juenau","Wasilla","Homer")
years <- 2003:2013 …我很好奇为什么排列功能不会按字母顺序工作,但不能反向按字母顺序排列.
df <- data.frame(string = as.character(c("b", "a", "c")), stringsAsFactors = F)
df %>% arrange(string) #works
df %>% arrange(-string) #does not work
我只是使用完全错误的方法来实现我想要完成的任务吗？
我想列出一个CIDR范围列表,它代表我指定的CIDR范围之外的地址.
作为简化示例:
如果我的IP范围从8.8.8.8到8.8.8.10,我可以用CIDR范围8.8.8.8/31和8.8.8.10/32来表达.但是我怎么能用CIDR表示法表达这些范围的反面呢？
我是CIDR的新手,所以如果这种工具已经以流行的形式存在,请原谅我的问题.
作为一个补充说明,我想最终在R中实现这个过滤,所以如果你能用R来表达你的答案,那将是更好的但我真的最感兴趣的是如何构建算法来解决这类问题.
我遇到了在强制进入数据框之前要解析的列表.有时我的列表中包含我不期望的元素.我希望能够在出现时按名称删除所有这些意外元素.下面是一个列表示例,其中包含wackything我想要删除的元素,而无需调用元素索引或使用for循环遍历每个子元素.
my_list <- list(person = list(name = "mike", phone = "111-1111"),
person = list(name = "lisa", phone = "222-2222", wackything = "PLEASE REMOVE ME"),
person = list(name = "kimo", phone = "333-3333"))
我希望我的最终列表看起来像这样:
final_list <- list(person = list(name = "mike", phone = "111-1111"),
person = list(name = "lisa", phone = "222-2222"),
person = list(name = "kimo", phone = "333-3333"))
这样我就可以使用它将其核心化为数据帧
do.call(rbind, lapply(final_list, rbind))
如何从R编写一个具有lat和long序列的json数组？
我想写:
[[[1,2],[3,4],[5,6]]]
我能做的最好的事情是:
toJSON(matrix(1:6, ncol = 2, byrow = T))
#"[ [ 1, 2 ],\n[ 3, 4 ],\n[ 5, 6 ] ]"
如何将该东西包装在另一个数组(json类)中？这对我很重要,因此我可以将文件作为LineString写入geojson格式.
我重新问我的问题......
...将其概括为使用尚未获得css的用户.我花了很多时间阅读http://shiny.rstudio.com/articles/css.html上的rstudio css指南,但它仍然没有点击.我理解了一些事情,但我认为这意味着我90%存在.
所以,我的问题是在http://shiny.rstudio.com/gallery/faithful.html的闪亮画廊中更改示例直方图应用程序的背景颜色的最简单的css实现是什么.
我认为这个问题的答案将有助于一些像我一样对css不熟悉的闪亮app开发者.
rmarkdown的默认选项是设置fig.width = 12.如果可能的话,我希望自动调整移动设备的宽度.
我在http://akdata.org/misc/leafletmobile上主持以下Rmarkdown
---
title: "Untitled"
output: html_document
---
```{r}
library(leaflet)
leaflet() %>% addTiles()
``
当我使用chrome devtools中的不同移动设备玩时,它将调整到屏幕的宽度.我有一个我正在测试的物理三星Galaxy 5.
当我在此示例中跨列应用时，我为正值得到了一个空格，但对于负值却没有得到一个空格？为什么是这样？不应该 paste0 删除元素之间的空格吗？这个问题背后的背景是我试图为 googlemaps 方向 api 形成端点。
library(dplyr)
stop_latlon <- data.frame(lat = paste0("via:", rnorm(10)), lon = rnorm(10))
stop_latlon %>%
apply(1, function(x) paste0(x, collapse = "%7"))
编辑：我认为这与在具有不同数据类型的数据帧上运行应用有关（lat 是一个字符，lon 是一个数字）