小编flo*_*del的帖子

当我给他一个加权图并且顶点之间的边权重指向顶点之间的距离时，是否有一种算法可以给我图中顶点的坐标？

就像是：

public _ArrayOfCoordinatesForVertices_ **super_hyper_algorithm**(weighted_graph){  
     return _foo_;  
}

我正在尝试将数据框中的日期从yyyy-mm-dd转换为dd-mm-yyyy格式.例如:

D <- "06.12.2012"  
as.Date(D, "%d.%m.%Y")
D

回报:

"2012-12-06"

如何将其转换为"06-12-2012"？

我想制作一个基本的分析工具,收集时间戳并用注释产生运行时间.唯一的问题是我无法在不使用全局变量的情况下弄清楚如何做到这一点.实现我想要实现的功能的"正确"方法是什么？如果R已经内置了这个功能,那真是太棒了,但我真正想要弄清楚的是如何避免使用全局变量并编写更强大的代码.

timeStamps = c()
runTimes = list()

appendRunTimes <- function(note) {
  if(length(timeStamps) < 1) {
    timeStamps <<- Sys.time()
  }
  else {
    timeStamps <<- c(timeStamps, Sys.time())
    diff <- timeStamps[length(timeStamps) ] - timeStamps[length(timeStamps) - 1]
    runTimes <<- c(runTimes,  format(diff))
    names(runTimes)[length(runTimes)] <<-  note
  }

}


appendRunTimes('start')
Sys.sleep(4)
appendRunTimes('test')

我有三个JSON文件

• json1 包含 [[1,5],[5,7],[8,10]]
• json2 包含 [[5,6],[4,5],[5,8]]
• json3 包含 [[4,7],[3,4],[4,8]]

我想将它们合并为一个文件jsonmerge:

  [[[1,5],[5,7],[8,10]],[[5,6],[4,5],[5,8]],[[4,7],[3,4],[4,8]]]

我尝试连接但它以这种格式给出了结果

   [[5,6],[4,5],[5,8]],
   [[5,6],[4,5],[5,8]],
   [[4,7],[3,4],[4,8]]

有什么建议？

提前致谢.

我知道我可以使用plot命令中的type ="o"参数创建一个带有线和点的图.我希望能有更多的控制权 - 我希望能够将"o"绘制为全点,我选择的黑色边框和填充颜色,自定义尺寸以及与线条不同的颜色.同样的线,我想让它更厚,我的颜色选择.我将如何继续这样做？

我到现在所发现的只是一个平原

 plot(y, type= "o")

这对我的需求太差了.

我对使用ggplot不感兴趣,而是使用R的内部绘图库.任何帮助表示赞赏.

对于看似简单的问题道歉,但我似乎无法找到解决以下重新安排问题的方法.

我习惯用来read.csv读取带有标题行的文件,但我有一个带有两个'标题'行的excel电子表格 - 单元格标识符(a,b,c ... g)和三组测量值(x,y)每个单元格的z和z;每个1000s):

a           b       
x    y  z   x   y   z
10   1  5   22  1   6
12   2  6   21  3   5
12   2  7   11  3   7
13   1  4   33  2   8
12   2  5   44  1   9

csv文件如下:

a,,,b,,
x,y,z,x,y,z
10,1,5,22,1,6
12,2,6,21,3,5
12,2,7,11,3,7
13,1,4,33,2,8
12,2,5,44,1,9

如何进入R中的data.frame,如下所示？

cell x  y   z
a    10 1   5
a    12 2   6
a    12 2   7
a    13 1   4
a    12 2   5
b …

特定

qz <- quantile(c(1,2,3,4,5,6,7,8,9,10), c(0.0, 0.2, 0.4, 0.6, 0.8, 1.0))

我想从分位数创建一个标签矢量.目前,我这样做

zlab <- c(paste(paste(sprintf(qz[[1]], fmt='$%.2f'), "-"), sprintf(qz[2],
fmt='$%.2f')), paste(paste(sprintf(qz[[2]], fmt='$%.2f'), "-"), sprintf(qz[3],
fmt='$%.2f')),paste(paste(sprintf(qz[[3]], fmt='$%.2f'), "-"), sprintf(qz[4],
fmt='$%.2f')), paste(paste(sprintf(qz[[4]], fmt='$%.2f'), "-"), sprintf(qz[5],
fmt='$%.2f')), paste(paste(sprintf(qz[[5]], fmt='$%.2f'), "-"), sprintf(qz[6],
fmt='$%.2f')))

得到

zlab
[1] "$1.00 - $2.80"  "$2.80 - $4.60"  "$4.60 - $6.40"  "$6.40 - $8.20"  "$8.20 - $10.00"

zlab的格式正确,并最终作为标签在图上结束.但是生成zlab真的很难看.我能以更优雅的方式做到这一点吗？

有没有人知道在R中创建如下的矩阵的快速方法

     [,1] [,2] [,3] [,4]
[1,]    1    1    1    1
[2,]    1    2    2    2
[3,]    1    2    3    3
[4,]    1    2    3    4

上面的矩阵是4x4,我想创建类似10000x10000的东西.

我有一个100 X 10矩阵,其中row是stock,column是每个月的价格.我需要每2个月采用每种库存的平均价格(根据下面给出的矩阵,每种库存共计5次).这应该对所有100只股票进行.我该怎么做呢？

msft     20  30  40  50  60  70  35  76  46  90
good     30  45  24  45  56  67  56  65  55  66
aapl     60  46  56  32  43  54  55  57  67  56
yhoo     64  54  45  56  67  66  78  65  77  78
bac      45  43  54  45  62  54  57  67  78  54
jpm      34  35  36  56  54  43  58  69  54  67

我有一个如下所示的数据集:

• 两轮数据(.t0和.t1)
• 多尺度(this和that)
• 每一等级的几个项目(1,22,22a)
• 几个变量忽略(v2,v3,ignore.t0,ignore.t1,this.t0,this.t1,that.t0,that.t1)

.

dat <- data.frame(id = seq(from=1, to=10, by=1),
                  v2 = rnorm(10),
                  v3 = rnorm(10),
                  ignore.t0 = rnorm(10),
                  this.t0 = rnorm(10),
                  this1.t0 = rnorm(10),
                  this22.t0 = rnorm(10),
                  this22a.t0 = rnorm(10),
                  that.t0 = rnorm(10),
                  that1.t0 = rnorm(10),
                  that22.t0 = rnorm(10),
                  that22a.t0 = rnorm(10),
                  ignore.t1 = rnorm(10),
                  this.t1 …