可能是一个非常简单的问题，但我希望能够设置变量，a并b能够从R中的expand.grid创建data.frame或data.table。
例如，如果a=5,b=3
我希望我能够得到相同的输出
expand.grid(seq(0,1,by=1/5),seq(0,1,by=1/5), seq(0,1,by=1/5))
如果a=3，b=4我会得到
expand.grid(seq(0,1,by=1/3), seq(0,1,by=1/3), seq(0,1,by=1/3), seq(0,1,by=1/3))
即b是列数......并且a是间隔大小。
谢谢
编辑
理想情况下，我会输入a大约 100 和b大约 30 的数字，是否有一些快速且内存高效的方法可以生成......也许是某种形式data.table？
我试图从包中一起使用ddply,但是在解析通过不断变化的列名时很难...在我的例子中,我希望能在程序中解析X1,而不是在X1中硬编码到ddply函数中.summariseplyr
建立一个例子
require(xts)
require(plyr)
require(reshape2)
require(lubridate)
t <- xts(matrix(rnorm(10000),ncol=10), Sys.Date()-1000:1)
t.df <- data.frame(coredata(t))
t.df <- cbind(day=wday(index(t), label=TRUE, abbr=TRUE), t.df)
t.df.l <- melt(t.df, id.vars=c("day",colnames(t.df)[2]), measure.vars=colnames(t.df)[3:ncol(t.df)])
这是我正在努力的......
cor.vars <- ddply(t.df.l, c("day","variable"), summarise, cor(X1, value))
我不想使用术语X1,并希望使用类似的东西
cor.vars <- ddply(t.df.l, c("day","variable"), summarise, cor(colnames(t.df)[2], value))
但是这出现了错误: Error in cor(colnames(t.df)[2], value) : 'x' must be numeric
我还尝试了各种其他组合,它们解析了cor中x参数的向量值...但由于某种原因,它们似乎都不起作用......
有任何想法吗？
当使用R,我通常使用identical(a,b)以检查对象a和b是相同的.如果这返回FALSE我希望能够看到这些差异在哪里...是否有一个功能可以告诉我这个？
嗨，这更多是代码安全性问题，而不是直接与编码相关的问题。但我想知道是否有可能看到的代码ui.R和server.R和生成应用程序的Web浏览器页面？
例如，虽然我敢肯定，我可以问加勒特看到代码...是有可能，未经授权，以某种方式看到与此相关的URL代码http://glimmer.rstudio.com/gsee/TFX/这是运行一个闪亮的应用程序？因为如果放置敏感数据/代码等，这可能是一个问题。
有没有办法为闪亮的应用程序添加安全的用户名和密码？以便只有选定的用户才能访问该应用程序？
我知道很明显你可以从 gist 看到运行闪亮应用程序的代码，但对闪亮的应用程序更感兴趣。
PS Garrett（如果您看到这个），我只是将您的应用程序用作一个很好的应用程序示例...因为它使用了 glimmer...，在我看来它的代码很有吸引力。
我有两组积分,叫做path和centers.对于每个点path,我想要一种有效的方法来找到最近点的ID centers.我想在R中这样做.下面是一个简单的可重复的例子.
set.seed(1)
n <- 10000
x <- 100*cumprod(1 + rnorm(n, 0.0001, 0.002))
y <- 50*cumprod(1 + rnorm(n, 0.0001, 0.002))
path <- data.frame(cbind(x=x, y=y))
centers <- expand.grid(x=seq(0, 500,by=0.5) + rnorm(1001),
y=seq(0, 500, by=0.2) + rnorm(2501))
centers$id <- seq(nrow(centers))
x并且y是坐标.我想在pathdata.frame中添加一列,它具有给定x和y坐标的最近中心的id.然后我想获得所有独特的ID.
我的解决方案目前确实有效,但当问题的规模增加时,它的速度非常慢.我想要更高效的东西.
path$closest.id <- sapply(seq(nrow(path)), function(z){
tmp <- ((centers$x - path[z, 'x'])^2) + ((centers$y - path[z, 'y'])^2)
as.numeric(centers[tmp == min(tmp), 'id'])
})
output <- unique(path$closest.id)
任何有关加快这一点的帮助将不胜感激.
我认为data.table可能有所帮助,但理想情况下我所寻找的是一种算法,在搜索方面可能更聪明,即不是计算到每个中心的距离,而是只选择最小的...获取id ... …
我想更改值的字体大小和valueBoxes 的字幕.
以下是我的尝试,但会对如何以类似于默认外观的方式更改它的任何建议表示感谢.以下是我的可再培训的例子.
require(shinydashboard)
valueBox2 <- function (value,header_val=4, subtitle, icon = NULL, color = "aqua", width = 4,
href = NULL) {
shinydashboard:::validateColor(color)
if (!is.null(icon))
shinydashboard:::tagAssert(icon, type = "i")
boxContent <- div(class = paste0("small-box bg-", color),
div(class = "inner", eval(parse(text=paste0('h',header_val,'(',shQuote(value),')'))), p(subtitle)), if (!is.null(icon))
div(class = "icon-large", icon))
if (!is.null(href))
boxContent <- a(href = href, boxContent)
div(class = if (!is.null(width))
paste0("col-sm-", width), boxContent)
}
ui = dashboardPage(title='hello',
dashboardHeader(title='hello2'),
dashboardSidebar(
sliderInput('hval',label='header value',min=1,max=6,value=3)
),
dashboardBody(
valueBoxOutput('tmp')
)
)
server = function(input, …这可能是一个非常基础研发问题......感觉有点不好有关要求......但有一点类似的代码==或|或!或&等,其执行以下逻辑功能？
如果
x ==向量中包含的元素/的任何值 y
然后是真的
其他
假
那些知道答案的人的快速问题......什么是代表"^"(帽子标志)的正则表达式模式？这样我可以在执行以下操作时将其删除？
gsub("^","","^GSPC")
即上述的输出并不GSPC像预期的那样......
这是我上一个问题的后续问题:是否可以看到闪亮的微光应用程序的代码
我想知道是不是过于简单的搭建提出了DynamicUI 这里由R-Studio中,基本上作为一个用户名和密码保护访问应用程序一线希望？
我正在考虑使用像下面这样简单的东西(显然添加了所有输入和输出等):
if(username=="x" & password=="y") { run the shinny app } else { print("access denied")}
但是想知道这是否过于简单,是否容易被打破.
或者也许某种程度上只允许对用户名和密码组合进行三次尝试...不知何故......不太确定闪亮是否会识别同一用户已经回来了......
对此的想法将不胜感激.
我已经创建并索引了与示例教程相同的内容,在这里......
https://www.elastic.co/guide/en/elasticsearch/reference/2.0/geo-point.html
具体写作如下:
curl -PUT 'localhost:9200/my_index?pretty' -d '
{
"mappings": {
"my_type": {
"properties": {
"location": {
"type": "geo_point"
}
}
}
}
}'
我还添加了两点作为数据
curl -PUT 'localhost:9200/my_index/my_type/1?pretty' -d'
{
"text": "first geo-point",
"location": {
"lat": 41.12,
"lon": -71.34
}
}'
curl -PUT 'localhost:9200/my_index/my_type/1?pretty' -d'
{
"text": "second geo-point",
"location": {
"lat": 41.13,
"lon": -71.35
}
}'
页面上的示例地理边界框查询起作用(即):
curl -XGET 'localhost:9200/my_index/_search?pretty' -d'
{
"query": {
"geo_bounding_box": {
"location": {
"top_left": {
"lat": 42,
"lon": -72
},
"bottom_right": {
"lat": 40, …