小编Jil*_*ina的帖子

我正试图覆盖条形图 ggplot2

我当前的代码生成条形图,但它们堆叠在一起.我不想要这个,我希望它们叠加,所以我可以看到每个条形高度的差异.

码:

library(ggplot2)
library(reshape)


x = c("Band 1", "Band 2", "Band 3")
y1 = c("1","2","3")
y2 = c("2","3","4")

to_plot <- data.frame(x=x,y1=y1,y2=y2)
melted<-melt(to_plot, id="x")

print(ggplot(melted,aes(x=x,y=value,fill=variable)) + geom_bar(stat="identity", alpha=.3))

堆叠输出:

我有两个大数据框,一个(df1)有这个结构

   chr    init
1  12  25289552
2   3 180418785
3   3 180434779

另一个(df2)有这个

    V1    V2     V3
10  1     69094 medium
11  1     69094 medium
12  12 25289552 high
13  1     69095 medium
14  3 180418785 medium
15  3 180434779 low

我试图做的是添加列V3的df2到df1,来获得突变的信息

   chr    init  Mut
1  12  25289552 high
2   3 180418785 medium
3   3 180434779 low

我正在尝试将两者加载到R中,然后使用匹配进行for循环,但它不起作用.你知道有什么特别的方法吗？我也愿意使用awk或类似的东西

我有一个这样的数据框:

     id  no  age
1    1   7   23
2    1   2   23
3    2   1   25
4    2   4   25
5    3   6   23
6    3   1   23

我希望将日期框架汇总id到这样的形式:(只需将no它们共享,如果它们共享相同id,但保留age在那里)

    id  no  age
1    1   9   23
2    2   5   25
3    3   7   23

如何使用R来实现这一目标？

R版本3.0.1(2013-05-16)适用于Windows 8 knitr版本1.5 Rstudio 0.97.551

我正在使用knitr我的R代码的降价.作为我的分析的一部分,我从网上下载了各种数据集,knitr从http网站获取数据完全没问题,但是从https网站获取数据产生了一个unsupported URL scheme消息.我知道在download.filemac上使用该函数时method,必须将参数设置为curl从https获取数据,但这在使用时无效knitr.

我需要做什么才能knitr从Https网站收集数据？

编辑:这是在Knitr中返回错误的代码块,但是当通过R运行时没有错误.

```{r}
fileurl <- "https://dl.dropbox.com/u/7710864/data/csv_hid/ss06hid.csv"
download.file(fileurl, destfile = "C:/Users/xxx/yyy")
```

以下按预期工作:

> as.integer(c("2","3"))
[1] 2 3

但是当我尝试(使用stringr包)时:

> str_split("55,66,77",",")
[[1]]
[1] "55" "66" "77"
> as.integer(str_split("55,66,77",","))
Error: (list) object cannot be coerced to type 'integer'

有没有其他方法将形式为"53,56,77"的字符串转换为具有这三个数字的向量？我是一个完整的新手,任何有关此文档的提示都将受到高度赞赏.

我一直在寻找我的问题的任何答案.我看了这个,这个和这个和相关的一些人,但我仍然可以不回答.

我的问题很简单(我希望是这样),但答案不是(至少对我自己而言),我想从这个网站导入一些经济数据,这是每个月测量的尼加拉瓜经济活动的指标,到目前为止我都是试过这个:

library(XML)
u <- "http://www.bcn.gob.ni/estadisticas/trimestrales_y_mensuales/siec/datos/4.IMAE.htm"
u <- htmlParse(u,encoding="UTF-8")
imae <- readHTMLTable(doc=u, header=T)
imae

library(httr)
u2 <- "http://www.bcn.gob.ni/estadisticas/trimestrales_y_mensuales/siec/datos/4.IMAE.htm"
page <- GET(u2, user_agent("httr"))
x <- readHTMLTable(text_content(page), as.data.frame=TRUE)

没有你想象的成功.第一块代码给了我这个输出

   $`NULL`
                                  BANCO CENTRAL DE NICARAGUA    NA    NA    NA   NA   NA   NA   NA   NA   NA   NA    NA    NA       NA
1                                                             <NA>  <NA>  <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>  <NA>  <NA>     <NA>
2 <U+633C><U+3E64>ndice Mensual de Actividad Económica(IMAE)  <NA>  <NA>  <NA> <NA> <NA> …

我正在使用Oracle数据库,并希望获取一个包含3000万条记录的表.

library(RODBC)
ch <- odbcConnect("test", uid="test_user", 
                  pwd="test_pwd", 
                  believeNRows=FALSE, readOnly=TRUE)
db <- sqlFetch(ch, "test_table")

对于100万条记录,该过程需要1074.58秒.因此,所有3000万条记录需要相当长的时间.有没有可能加快这个过程？

我将不胜感激任何帮助.谢谢.

我有一个阵列

a <- c(1,1,1,1,1,2,3,4,5,5,5,5,5,6,7,7,7,7)

我想用一些命令告诉我哪个是数组中最常用的数字？

有一个简单的命令吗？

    summary(DF)

>fx_code          date               fx_spot              fx_fwd         implied_fx_vol  
 AUD    : 171   Min.   :2000-01-31   Min.   :    0.394   Min.   :-320.000   Min.   : 1.000  
 BRL    : 171   1st Qu.:2003-07-31   1st Qu.:    1.623   1st Qu.:  -2.615   1st Qu.: 7.180  
 CAD    : 171   Median :2007-02-28   Median :    6.117   Median :   6.070   Median : 9.842  
 CHF    : 171   Mean   :2007-02-28   Mean   :  449.477   Mean   :  63.569   Mean   :10.656  
 CLP    : 171   3rd Qu.:2010-09-30   3rd Qu.:   43.475   3rd Qu.:  64.055   3rd Qu.:12.809  
 COP    : 171   Max.   :2014-03-31   Max.   :12360.000 …

如何以快速方式替换NA的前一行和下一行的平均值？

  name grade
1    A    56
2    B    NA
3    C    70
4    D    96

这样B的成绩将是63.