小编And*_*n21的帖子

我有一个数据框,其中包含x轴数字箱和跨多个类别的连续y轴数据.最初,我通过制作x轴箱"因子"并绘制熔化数据的箱线图来创建箱线图.可重复的数据:

x <- seq(1,10,by=1)
y1 <- rnorm(10, mean=3)
y2 <- rnorm(10, mean=10)
y3<- rnorm(10, mean=1)
y4<- rnorm(10, mean=8)
y5<- rnorm(10, mean=12)
df <- data.frame(x,y1,y2,y3,y4,y5)
df.m <- melt(df, id="x")

我的代码创建x轴数据作为一个因素:

df.m $ x < - as.factor(df.m $ x)

我的ggplot:

ggplot(df.m, aes(x=x, y=value))+
 geom_boxplot(notch=FALSE, outlier.shape=NA, fill="red", alpha=0.1)+
 theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

由此产生的情节: :

问题是我不能使用x轴数字间距,因为x轴被分类为具有相等间距的因子.我希望能够使用像scale_x_continuous这样的东西来操纵轴断裂和间距,例如,间隔为2,而不是每1个盒子图,但是当我尝试用x轴绘制数据时"as.numeric ",我只得到所有数据的一个箱线图:

有什么方法可以获得这种连续观察的箱形图曲线(第一幅图像),同时仍能控制x轴的数字属性？谢谢!

我希望将 ggmap 对象内的视图从默认的 up = true North 旋转到我选择的自定义角度，但在 ggmap 或 get_map 中找不到该选项。目前，我有以下代码：

map1 <- get_map(location=c(-78.872209, 35.050514), zoom = 17, maptype="hybrid")
ggmap(map1)

其产生：

我想旋转图像，以便显示的主要街道（人街）垂直对齐，如下所示（我只是在屏幕捕获软件中手动旋转）：

当然，我的目标是仍然具有水平和垂直的 x 和 y 轴作为原始图像，但旋转实际的“视口”。

假设我有一个如下所示的数据框:

Factor     Value
======     =====
1A.In      1.0
1A.Out     2.6
1B.In      0.5
1B.Out     3.4
2A.In      5.5

等等

我的目标是在数据框中添加列,从单个Factor列中提取信息,如下所示:

Factor   Value   Fact1     Fact2     Fact3
======   =====   =====     =====     =====
1A.In    1.0     1         A         In  
1A.Out   2.6     1         A         Out
1B.In    0.5     1         B         In
1B.Out   3.4     1         B         Out
2A.In    5.5     2         A         In

我不知道如何在不使用子集广告的情况下做到这一点.我对R比较陌生,并且没有编程背景,所以任何建议都会非常感激.

我有一个包含日期/时间信息的数据列表.这是一个示例:

Date.time                
2012-12-20 19:28:00
2012-12-25 21:08:00
2012-12-29 02:50:00
2013-01-01 12:32:00
2013-01-11 05:24:00
2013-02-11 06:32:00
2013-02-12 22:06:00
2013-02-16 11:42:00
2013-02-19 11:06:00
2013-02-22 13:10:00
2013-02-26 05:30:00
2013-03-12 02:24:00
2013-03-18 21:54:00
2013-03-24 04:50:00
2013-03-31 05:54:006    
2013-04-01 03:52:00
2013-04-04 12:34:00

我还有一个单独的表格,按日期和时间定义未来20年的不同昼夜平分点和至日.与Vlookup类似,我可以根据上面的输入文件交叉引用该季节性表格,并最终在这个原始数据中添加一个因子列,该数据具有时间和日期所在的季节吗？

交叉参考季节定义表:

seastime <- c("03/20/2000 02:35",
          "03/20/2001 08:31",
          "03/20/2002 14:16",
          "03/20/2003 20:00",
          "03/20/2004 01:48",
          "03/20/2005 07:33",
          "03/20/2006 13:25",
          "03/20/2007 20:07",
          "03/20/2008 01:48",
          "03/20/2009 07:44",
          "03/20/2010 13:32",
          "03/20/2011 19:21",
          "03/20/2012 01:14",
          "03/20/2013 07:02",
          "03/20/2014 00:57",
          "03/20/2015 18:45",
          "03/20/2016 00:30",
          "03/20/2017 06:29",
          "03/20/2018 00:15",
          "03/20/2019 17:58", …