小编ada*_*888的帖子

假设我在数据帧中有一个列:

AAAABBBBBBBBBCCDDEEEE EEEEEFFFFFFFFF

如何列出该列中的因子？即:

ABCDEF

谢谢您的帮助.

我可以通过该函数获得所有可用包的列表:

ap <- available.packages()

但是我怎样才能从R中获得这些包的描述,所以我可以有data.frame两个列:包和描述？

我knitr用来创建一个HTML网页.默认设置似乎是800px但我需要更大的页面大小1100px

body {
    max-width: 800px;
    margin: auto;
    padding: 1em;
    line-height: 20px ; 
}   

我试过了:

library("markdown")
library("knitr")
knit2html("test.Rmd",options = c(width=1100))

但这仍然给我800px的较小页面大小

如何设置HTML页面宽度的代码？

我想在R中生成一个类似于本页下面的世界网络地图.

我一直在寻找一个允许我这样做的R包,但我找不到.有D3 JavaScript的网络图来自R,但我找不到一个世界网络图的例子.
如何在R中创建类似的东西？

我有一个矢量:

df <- c(5,9,-8,-7,-1)

如何在更改符号之前识别位置？即df[2]

我有一个数据帧,我试图将数据帧中的每一列除以最后一行值:

A <- c(1:10)
B <- c(2:11)
C <- c(3:12)

df1 <- data.frame(A,B,C)


df2 <- df1/df1[10,]

但是我收到了一个错误.我很想知道我做错了什么.

我有一个带有两个变量x和y的函数:

fun1 <- function(x,y) {
  z <- x+y
  return(z)
}

该功能本身可以正常工作:

fun1(15,20)

但是当我尝试使用带有两个x和y向量的应用函数时,我没有得到正确的56*121数组

Lx  <- c(1:56)
Ly <- c(1:121)

mapply(fun1, Lx, Ly)

我将非常感谢您的帮助以及有关最快解决方案的建议(例如,data.table或dplyr解决方案比应用更快).

我想将一个文件直接下载到我的工作目录中我可以将它做到临时目录: download.file("http://www.abc.com/abc.zip",temp) 但是我需要用什么来替换temp才能将它下载到工作目录？

我试图在ggplot的右侧添加一些文本,其中日期为x轴但我在设置annotation_customDate对象的xmin和xmax参数时遇到问题.我将不胜感激为此提供一些帮助.

library(ggplot2)
library(quantmod)
getSymbols("SPY", from="2013-11-01", to=Sys.Date())

SPY = data.frame(SPY)
SPY$Date = as.Date(rownames(SPY))
colnames(SPY)[6] = 'Price'
tail(SPY)

gg1 <- ggplot(data=SPY, aes(x=Date, y=Price)) + geom_line() + theme_bw()
gg1 <- gg1+ theme(plot.margin = unit(c(0.1,6,0.1,0.1), "cm"))
gg1

Text1 = textGrob("xxxxxxxxxxxxxxxxxxxxxxxxxxx")
Text1

ymax1 <- max((SPY)[6])
ymin1 <- min((SPY)[6])
xmin1 <- tail(SPY$Date,1)
xmax1 <- tail(SPY$Date,1)+10

gg1 <- gg1 + annotation_custom(grob = Text1, 
               xmin = xmin1, xmax = xmax1, ymin = ymin1, ymax = ymax1) 
gg1 <- ggplot_gtable(ggplot_build(gg1))
gg1$layout$clip[gg1$layout$name=="panel"] <- "off"
grid.draw(gg1)


Error in Ops.Date((x …

我的传奇中有两行.如何制作一行粗体,蓝色和大字体以及一行小字体,红色和斜体字？

library(ggplot2)
library(gridExtra)
p <- qplot(data = mtcars, wt, mpg)
print(arrangeGrob(p, legend = 
  textGrob("large font size colour blue bold\n small font size colour red italic", 
           rot = -90, vjust = 1)))

谢谢您的帮助.