小编Jaa*_*aap的帖子

我有列表,其中元素名称是ID标签,并包含带有数值的向量.这些是不相等的(!)长度.

我想将其转换为数据框,其中我在一列中具有ID,在另一列中具有数值.例如:

$`1`  
[1] 1 2   
$`2`  
[1] 1 2 3 
$`3`  
[1] 1   

至:

ID   Obs  
1    1  
1    2
2    1
2    2
2    3
3    1

我是R的初学者,并没有找到解决以下问题的方法.任何帮助将非常感激!

我有一个data.frame,并希望用定义的其他值替换列的某些值.

data.frame

date<-c("19921231","19931231","19941231","19941231","19931231","19941231")
variable<-c("a","a","a","b","b","b")
value<-c(1:6)
dataframe <- data.frame(date,variable,value)

试图解决问题

yearend<-c("19921231","19931231","19941231")
year<-c("1992","1993","1994")
map = setNames(yearend,year)
dataframe[] = map[dataframe]

错误信息

Error in map[dataframe] : invalid subscript type 'list'

问题显然是,它不是一个矩阵.解决这个问题最有效的方法是什么？如果我想替换"真实"字符,例如"BGSFDS"和"BASF stock",它也应该有用.

我不确定是否geom_bar能够(可能我不是)创建我需要的情节geom_bar.我想要一个条形图但不是从0开始,我有一个最小值和最大值,它们是每个柱的起点和终点.期望的输出看起来像这样:

数据结构是

dput(datos)
structure(list(CDG = c("Alicante", "Alicante", "Alicante", "Alicante", 
"Alicante", "Alicante", "Alicante", "Alicante", "Alicante", "Alicante", 
"Alicante", "Castellón", "Castellón", "Castellón", "Castellón", 
"Castellón", "Castellón", "Castellón", "Castellón", "Castellón", 
"Castellón", "Castellón", "Castellón", "Castellón", "Castellón", 
"Castellón", "Castellón", "Castellón", "Castellón", "Valencia", 
"Valencia", "Valencia", "Valencia", "Valencia", "Valencia", "Valencia", 
"Valencia", "Valencia", "Valencia", "Valencia", "Valencia", "Valencia", 
"Valencia", "Valencia", "Valencia", "Valencia", "Valencia", "Valencia", 
"Valencia", "Valencia", "Valencia", "Valencia", "Valencia", "Valencia", 
"Valencia"), ESTACION = structure(c(5L, 1L, 2L, 3L, 8L, 23L, 
24L, 21L, 31L, 22L, 41L, 26L, 12L, 16L, …

我生成了一个图表:

library(DiagrammeR)
grViz("
digraph boxes_and_circles {

  # a 'graph' statement
  graph [layout = neato, overlap = true, fontsize = 10, outputorder = edgesfirst]

  # several 'node' statements
  node [shape = circle,
  fontname = Helvetica]
  A [pos = '1,1!']; 
  B [pos = '0,2!']; 
  C [pos = '1.5,3!']; 
  D [pos = '2.5,1!']; 
  E [pos = '4,1!']; 
  F [pos = '4,2!']; 
  G [pos = '5,1!']; 
  H [pos = '6,2!']; 
  I [pos = '1.5,-0.1!'];

  # several 'edge' statements
  A->B B->C
  D->E D->F E->F E->G …

一些背景:

R语言社区有一个名为CRAN的大包软件包.使用drat包可以很容易地托管类似CRAN的私有存储库.有许多组织使用drat包和gh-pages分支来托管他们的R包.Drat只是创建一个R命令可识别的目录结构install.packages().index.html存储库结构中没有文件.

我的问题是:

如何从这些收集每个文件的下载统计信息gh-pages？我找到了" 如何将Google Analytics跟踪ID添加到GitHub页面 "的问题,但它需要一个index.html,因此无法在此处使用.

有什么建议如何解决这个问题？

GitHub是否支持此功能？

我有一个ggplot地图,例如:

library(ggmap)
ggmap(get_map())

我希望轴标签自动标记为NS/WE:在上述情况下,例如,它应该显示95.4°E而不是lon -95.4.

我试图弄乱scales包和使用scale_x_continuous和scale_y_continuous标签和打破选项,但我没有设法让它工作.

拥有一个scale_y_latitude和那将是非常棒的scale_x_longitude.

编辑:感谢@Jaap的回答,我得到了以下内容:

scale_x_longitude <- function(xmin=-180, xmax=180, step=1, ...) {
    ewbrks <- seq(xmin,xmax,step)
    ewlbls <- unlist(lapply(ewbrks, function(x) ifelse(x < 0, paste(x, "W"), ifelse(x > 0, paste(x, "E"),x))))
    return(scale_x_continuous("Longitude", breaks = ewbrks, labels = ewlbls, expand = c(0, 0), ...))
}
scale_y_latitude <- function(ymin=-90, ymax=90, step=0.5, ...) {
    nsbrks <- seq(ymin,ymax,step)
    nslbls <- unlist(lapply(nsbrks, function(x) ifelse(x < 0, paste(x, "S"), ifelse(x > 0, paste(x, "N"),x))))
    return(scale_y_continuous("Latitude", …

我在R中有两个矩阵,我想要乘法:

a = matrix(rnorm(20*10000, mean=0, sd=5), 20, 10000)
b = matrix(rnorm(20*10000, mean=0, sd=5), 20, 10000)
t(a)%*%b

鉴于此矩阵乘法中较大的维数需要花费大量时间,是否有一种特定的方法可以使计算更快？R中是否有任何内置功能可以使这种乘法更快？

我需要得到这个:

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    1    0    2    0    3    0    4    0    5
[2,]    0    0    0    0    0    0    0    0    0
[3,]    6    0    7    0    8    0    9    0   10
[4,]    0    0    0    0    0    0    0    0    0
[5,]   11    0   12    0   13    0   14    0   15
[6,]    0    0    0    0    0    0    0    0    0
[7,]   16    0   17    0   18    0   19    0   20 …

考虑一下互联网上的一个文件(就像这个一样(注意https中的s)https://evs.nci.nih.gov/ftp1/CDISC/SDTM/SDTM%20Terminology.xls

如何将文件的表2读入R？

以下代码是所需内容的近似值(但失败)

url1<-'https://evs.nci.nih.gov/ftp1/CDISC/SDTM/SDTM%20Terminology.xls'
p1f <- tempfile()
download.file(url1, p1f, mode="wb")
p1<-read_excel(path = p1f, sheet = 2)

我有一个程序,以这种格式给我数据

toy
                file_path Condition Trial.Num A B  C  ID A B  C   ID  A B  C    ID
1     root/some.extension  Baseline         1 2 3  5 car 2 1  7 bike  4 9  0 plane
2    root/thing.extension  Baseline         2 3 6 45 car 5 4  4 bike  9 5  4 plane
3     root/else.extension  Baseline         3 4 4  6 car 7 5  4 bike 68 7 56 plane
4 root/uniquely.extension Treatment         1 5 3  7 car 1 7 37 bike  9 8  7 …