小编mne*_*nel的帖子

我得到了一个简单的data.frame(AD0),它有基本的统计值和因子(group):

       mean         se        sd median group
value1 0.725 0.07149951 0.4522026      1     1
value2 0.650 0.07637626 0.4830459      1     2
value3 0.175 0.06084343 0.3848076      0     3
value4 0.375 0.07752171 0.4902903      0     4

我尝试制作一个简单的条形图:

p <- ggplot(AD0, aes(mean,group)) + geom_bar()

但是,我收到消息:"错误:情节中没有图层"这是一件非常简单的事情,我无法理解为什么它不起作用.

如果有人能帮助我,我会很高兴

我正在使用gridExtra包grid.arrange函数组合多ggplot图.

我这样做:

p1<-ggplot(x, aes(Date, Value)) + geom_line()
p2<-ggplot(y, aes(Date, Score)) + geom_point()
grid.arrange(p1, p2,  main=textGrob("Head Line", gp=gpar(cex=1.5, fontface="bold", col="#990000")), ncol = 1, clip=TRUE)

此命令在p1和p2之间放置边框.我找不到有关删除grid.arrange中的边框的任何信息.是否可以删除边框？

我有或多或少看起来像这样的数据(不知道如何粘贴图):

library(reshape2)
library(ggplot2)

df <- cbind(runif(2000,0,1000), rep(0,n=2000))
for (i in 1:nrow(df)) {
  df[i,2] <- runif(1, df[i,1], (10000-2*df[i,1])) 
}
colnames(df) <- c("x","y")
df.1 <- melt(data.frame(df), id="x")

p <- ggplot(df.1, aes(x=x, y=value))
p <- p + geom_point()
p <- p + geom_smooth()
p

而不是显示的平滑线,我需要在底部5%的一条直线和在顶部95%的一条直线.一个问题是我有数百万点,所以我认为data.table是一个很好的前进方式:

library(data.table)
dt <- data.table(df)
dt[,xbin:=0]
for (i in 0:100) {
  x1 <- i*100
  x2 <- (i+1)*100
  dt[x>=x1 & x<x2, xbin:=x2]
}
setkey(dt,xbin)
result1.dt <- dt[,list(ymin=min(y), ymax=max(y)), by=key(dt)]
result1.df <- data.frame(result1.dt)

p <- p + geom_line(data=result1.df, aes(x=xbin, y=ymin))
p …

我有一个向量的R摘要:

summary(vector)
Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
1.000   1.000   2.000   6.699   6.000 559.000 

我想添加一个标准偏差列:

SomethingNew(vector)
Min. 1st Qu.  Median    Mean 3rd Qu.    Max.   Std.Dev.
1.000   1.000   2.000   6.699   6.000 559.000  17.02

最后一列的公式是

round(sd(vector),2)

但我不知道如何将它添加到同一显示中的摘要数据框.任何帮助赞赏,欢呼.

当使用scale_colour_manual根据数据框中包含的HEX颜色代码将颜色设置为预定义设置时,有没有人知道任何错误/技巧？

我一直试图使用以下代码从我的数据框中提取预定义的颜色代码.

p <- ggplot(df, aes(x, y, colour=company)) 
p <- p + geom_point()
p <- p + scale_colour_manual(breaks=df$company, values = df$col)
p

但是,由于某些原因,在渲染绘图时,不会绘制数据中的颜色(即值= df $ col).

任何协助或指导将不胜感激.下面是我的ggplot结构/数据:

structure(list(data = structure(list(x = c(119, 34, 34, 46, 86, 
70, 61, 71, 84, 30, 84, 85, 3, 16, 5, 167, 72, 85, 5, 44, 85, 
63, 15, 86, 148, 83, 105, 11, 11, 98, 169, 14, 11, 28, 98, 52, 
52, 52, 90, 11, 176, 94, 94, 52, 9, 176, 148, 9, 105, …

所以，我有中心点和缩放级别。
我必须在地图上绘制一些点。

地图存储在栅格数据文件中，并显示在 R 的小部件上。

问题是当接收到一个点时，我需要检查它是否落在这个光栅文件的数据内。
如果点在光栅文件中，那么我可以安全地绘制它。
如果没有，那么我需要加载另一个包含该点的光栅文件，然后绘制该点。

所述raster的R封装具有命名的函数as.data.frame，其中的光栅数据加载到数据帧。

那么，是否有可能找出四个角上的点（纬度和经度）？我在正确的轨道上吗？

我distr用来形成以下分布：

library(distr)

G1 <- Gammad(shape=1.64, scale=0.766)
G2<- Gammad(shape=0.243, scale=4.414)

现在为了比较这两个分布，我需要在一个窗口中绘制它们，但我不知道如何。我试过了，ggplot但显然它不适用于伽马函数。

我正试图在网站上模拟物理上正确的绳索.

搜索过网络后,我的结论是我需要一个像box2d这样的物理引擎？

如果我理解正确,解决方案是将一个对象分成小段,然后加入并将这些对象组合在一起.另外,我想将物理学与浏览器结合起来.这意味着:当我快速向下滚动网站时,绳索必须以物理上正确的方式作出反应.

这可能吗？

我有多个向量,我想得到这些向量的所有组合.说,我有v_1=(v_{1,1},...,v_{1,n_1}), ... , v_m=(v_{m_1,1},...,v_{m,n_m}),我想得到一套u={(u_1,...,u_m)|u_i?v_i}.对于2个向量,outer可以完成这项工作(需要重塑).仲裁数量的向量如何？

shapefile"Property1A"的数据集是:

 df
#      suburb        area asst
# 0     Te Aro   14.541780 R076
# 1     Te Aro    7.655428 R076
# 2     Te Aro 3189.976134 <NA>
# 3     Te Aro  242.173386 0132
# 4     Karori  537.697290 R003
# 5    Pipitea 1116.954993 R105
# 6    Mt Cook  106.099900 R151
# 7     Te Aro   83.307421 R057
# 8 Aro Valley  544.665788 R105
# 9 Aro Valley   59.726882 R110

当我尝试为郊区"Te Aro"子集shapefile时,我使用的代码是:

TeAro <- subset(Property1A, suburb == "Te Aro") 

但是有一个错误:

TeAro <- subset(Property1A, suburb == "Te …