小编had*_*ley的帖子

如何确定交易是否活跃？我希望能够执行创建保存点的SQL，而不管事务当前是否处于活动状态（即，如果事务未处于活动状态，则我要“开始”）

R中是否有"this"引用允许我编写

envir1 <- new.env()
assign("x", 4, envir=envir1)

test <- function(env1) {
    environment(this) <- env1
    return(x + 5)
} 

test(envir1)

代替:

envir1 <- new.env()
assign("x", 4, envir=envir1)

test2 <- function() {
    return(x+1)
}

test <- function(env1) {
    environment(test2) <- env1
    return(test2())
}

test(envir1)

不知道如何表达这个问题,但我希望将聚合查询应用于多行.希望一个例子可以让这更容易.假设我有以下数据:

  player  | year | games
-------------------------
ausmubr01 | 2006 | 139
ausmubr01 | 2007 | 117
bondsba01 | 2006 | 130
bondsba01 | 2007 | 126
stairma01 | 2006 | 26
stairma01 | 2006 | 77
stairma01 | 2006 | 14
stairma01 | 2007 | 125

对于每年的每位球员,我想计算他们的"职业生涯年",即他们一直在玩的年数:

  player  | year | games | cyear
 --------------------------------
ausmubr01 | 2006 | 139   |  1
ausmubr01 | 2007 | 117   |  2
bondsba01 | 2006 | 130   |  1
bondsba01 | 2007 …

使用以下命令（x 是一个包含 3 列 A、B 和 C 的表）

library(reshape)
cast(x, A~B)

出现以下错误：

Using C as value column.  Use the value argument to cast to override this choice
Error in order(A = list("xxx",  : 
  unimplemented type 'list' in 'listgreater'

这意味着什么以及如何解决？

我想这可能是由于数据框的数据格式造成的（如果我错了，请纠正我）。正如我使用 str 命令测试了表 x 和 y 的格式。

str(x) returns
$ A: List of 6
..$ : chr "xxx"
....
$ B:chr "yyy" "yy2" ....
...
$ C: List of 6
..$ : num 22.....
...

对于另一个具有 DE 和 F 列的表 y，当我运行cast …

请考虑以下示例:

q1.func <- function(x) {
  num <- (cos(30.2 * x^(1/2)))^2 
  denom <- (x^0.7) * exp(0.9*x)

  num / denom
}

method1 <- function(n) {
  x <- runif(n,min = 0, max = 1.7)
  f <- q1.func(x)  

  (1.7) * sum((1/n) * f)
} 

draw.graph <- function() {
  n <- seq(1,1000,1)
  x <- c()
  for(i in 1:length(n)) {
    x <- append(x, method1(n[i]))
  }
  plot(n, x, type = "p", xlab = "N",ylab = "value" ,main = "method1 plot",col = "black")
}

我的观点是我希望能够执行:draw.graph(method1(n)).但R不允许我这样做.我不明白为什么会这样？我的最终目标是我能够传递method2/method3/....作为draw.graph()函数的参数.但是如何??? 现在,我只对允许我将method1作为draw.graph函数的参数传递的解决方案感兴趣.请不要让我在draw.graph函数中编写method1,因为我已经知道它有效.但我更感兴趣的是将method1作为draw.graph函数的参数传递.谢谢

当我最近将最新版本的R下载到新的MacBook Pro时,位于加州大学伯克利分校的CRAN CRAN的网页上说"检查下载图像的MD5校验和,以确保它没有被篡改或损坏镜像过程."

它说,"例如,在终端应用程序中键入md5 R-2.13.0.pkg以打印R-2.13.0.pkg映像的MD5校验和."

我在2011年6月27日从http://cran.cnr.berkeley.edu/复制的引文中的文字.

我现在尝试了超过1.5小时,但我无法让标签工作......: -

我有以下矩阵clVrd

            [,1]        [,2] [,3]
 [1,]  0.6618725 -0.04065907    1
 [2,]  0.4646620  0.09859806    2
 [3,]  0.9388307  0.05681554    3
 [4,]  1.1809942  0.12906415    4
 [5,]  1.5476428  0.49644973    5
 [6,] -0.1855485  0.30445869    6
 [7,]  0.4525888  0.49559198    7
 [8,] -0.4004534 -0.06419374    8
 [9,] -1.0669191  0.17292748    9
[10,] -0.9372038  0.02601539   10
[11,]  0.5617849 -5.21857716   11
[12,] -0.9370099 -0.05539107   12
[13,]  0.6803453  0.21223368   13
[14,]  1.3040601  0.47598799   14

我尝试使用以下命令绘制它

ggplot() + geom_point(data=data.frame(clVrd), mapping=aes(x=clVrd[,1], y=clVrd[,2], label=clVrd[,3]))

即使我在clVrd中设置了rownames

rownames(clVrd) <- seq(1:14)

它仍然无法正常工作.绘制的情节,但没有标签......有人可以告诉我为什么？

谢谢你的帮助!

更新:daroczig提到的方式有效,但我需要在更复杂的情节中添加图层.

整个代码是:

ggplot() + geom_segment(data=data.frame(test), …

如果元素在列表中,我使用匹配获取.例如我的列表是:

  c("a","b","h","e"...) and so on

如果我想查看元素h是否在列表中,我将以这种方式使用匹配:

  if ("h" %in% v){do something}

我怎样才能找到它在列表中找到元素的位置？谢谢

所以我有这个数据：

dataset     = rbinom(1000, 16, 0.5)
mean        = mean(dataset)
sd          = sd(dataset)
data_subset = subset(dataset, dataset >= (mean - 2*sd) & dataset <= (mean + 2*sd))

dataset     = data.frame(X=dataset)
data_subset = data.frame(X=data_subset)

这是我如何绘制直方图dataset：

ggplot(dataset, aes(x = X)) +
   geom_histogram(aes(y=..density..), binwidth=1, colour="black", fill="white") +
   theme_bw()

我如何data_subset像这样遮挡直方图的一部分？

是否有任何可能的方法来迭代R.raw或R.drawable或任何R类？我想动态地获取该文件夹上的每个id.

ArrayList resArray = new ArrayList();
foreach(int id : R.raw) {
resArray.add(id);
}

或者还有其他方法吗？

我在Mac上使用R和RStudio.为了使用不同的软件包,我需要使用R的几个版本.似乎RSwitch不再可供下载.如何在Mac上以最简单的方式管理不同版本的R？

由于其灵活性,我正在学习R并非常喜欢这门语言,但我想知道:

• 移动设备是否有R的端口？
• 我在哪里可以买到它们？

我理解"function(x)"是如何工作的,但是"function()"的作用是什么？

z <- function() {
  y <- 2
  function(x) {
    x + y
  }
}