小编Met*_*xis的帖子

我想这非常简单,但我似乎无法找到答案.

我正在写一个IF语句,但测试是对象是否返回一个character(0)值.我不知道如何character(0)在声明中处理.

假设Test <- character(0)或值:

if (identical(Pols4,character(0))) {
  print('Empty')
} else {
  print('Not Empty')
}

它似乎仍然没有工作.....

我被要求在下面的情节周围放置一个完整的边框:

使用panel.border = element_rect(colour = "black")结果在图中丢失变成空白.

我无法使用,theme_bw()因为它没有与通常主题相同的功能,我目前使用的代码如下:

graph<-ggplot(d,aes(x=d$AOE, y=d$MEI)
            )+
  geom_point(shape=20, size=3)+
  geom_rug()+
  annotate("text", x = -1.1, y = 14000, label = "27/04/2011") +
  annotate("text", x = -1.3, y = 10400, label = "03/04/1974") +
  xlab("MEI")+
  ylab("AOE")+
  scale_y_log10()+
  theme(axis.text.y   = element_text(size=14),
        axis.text.x   = element_text(size=14),
        axis.title.y  = element_text(size=14),
        axis.title.x  = element_text(size=14),
        panel.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black")
  )

graph 

任何关于如何获得全黑边框的建议将非常感谢!

我试图在一个geom_density()图中绘制3组.

数据采用长格式:

MEI Count   Region
-2.031  10  MidWest
-1.999  0   MidWest
-1.945  15  MidWest
-1.944  1   MidWest
-1.875  6   MidWest
-1.873  10  MidWest
-1.846  18  MidWest

Region是变量,因此还有South和NorthEast值,代码如下:

ggplot(d, aes(x=d$MEI, group=d$region)) + 
  geom_density(adjust=2) + 
  xlab("MEI") +
  ylab("Density")

更近一步

我Rank()用来为数据帧分配一个等级值,但我需要等级为1 =最高而不是1 =最低.

我有一个由多人使用的文档,我们必须不断检查文件是否正在使用以及由谁使用.

我想知道在R中是否有任何我可以获得.xlsx文件的状态,如果它已关闭或打开,以及谁打开该文件.

然后我会将此结果推送到一个定期刷新的HTML页面,这样就不需要进行手动检查.

我需要消除 x 轴上 1950 年之前的差距。

我曾尝试使用，scale_x_continuous但这会导致：

Error: Discrete value supplied to continuous scale

我相信这一定与数据的日期格式有关。

示例数据：

x      y                date
1    -631152000 -1.018 1950-01-01 01:32:40
2    -628473600 -1.143 1950-02-01 01:32:40
3    -626054400 -1.290 1950-03-01 01:32:40
4    -623376000 -1.061 1950-04-01 01:32:40
5    -620784000 -1.416 1950-05-01 01:32:40
6    -618105600 -1.372 1950-06-01 01:32:40
7    -615513600 -1.334 1950-07-01 01:32:40
8    -612835200 -1.050 1950-08-01 01:32:40
9    -610156800 -0.578 1950-09-01 01:32:40
10   -607564800 -0.395 1950-10-01 01:32:40

用于创建绘图的代码：

Plot <- ggplot(d2,aes(x = date,
              y = y)) + …

我已成功设法实现sendmailR功能,以便向一个收件人发送一条消息.

您知道是否可以将相同的消息发送给该功能中的多个收件人？CC'ing的一种形式？

如果不是,我认为唯一的方法是循环一个变量,这通常是可以的,但对于我当前的代码将导致循环内的循环并使事情公平,希望不必要的复杂

我无法在文档中看到任何表明这样的功能的内容 - > http://cran.r-project.org/web/packages/sendmailR/sendmailR.pdf

感谢您的帮助,我会继续测试,看看在此期间是否有解决方法!

我正在尝试创建一个看起来更像这样的GGPLOT2平滑线图

资料来源:http://www.esrl.noaa.gov/psd/enso/mei/

而不是这样的:

资料来源:https://dl.dropboxusercontent.com/u/16400709/StackOverflow/Rplot02.png

我的数据可以在Dropbox上找到.

看了以前的帖子,我使用了下面的代码:

#MEI Line Graph

d4 <- read.csv("https://dl.dropboxusercontent.com/u/16400709/StackOverflow/Data_MEI.csv")
head(d4,n=20)

MEI<-ggplot(d4,aes(x=d4$Date, y=d4$MEI,group=1))+geom_line()

MEI+stat_smooth(method ="auto",level=0.95)

我认为我需要的是减少发生的平滑量,但我还没有弄清楚如何实现这一点.

d4s<-SMA(d4$MEI,n=8)
plot.ts(d4s)

SMA()效果很好,但我不能让它与ggplot一起使用任何提示都将不胜感激!

无论如何,使用ggplot2可以使用围绕geom_line图中平均值的最小值和最大值生成置信带或类似置信带的东西吗？

数据:

Year   Value   Group
50      0.25    Avg
100     0.30    Avg
200     0.27    Avg
250     0.26    Avg
500     0.22    Avg
1000    0.24    Avg
5000    0.27    Avg
10000   0.23    Avg
50      0.24    Max
100     0.29    Max
200     0.24    Max
250     0.23    Max
500     0.20    Max
1000    0.22    Max
5000    0.22    Max
10000   0.20    Max
50      0.28    Min
100     0.33    Min
200     0.31    Min
250     0.30    Min
500     0.27    Min
1000    0.26    Min
5000    0.32    Min
10000   0.33    Min

目前的情节如下: …

我正在尝试完成一个寻找“ #REF！”的简单宏。由于用户更改行并破坏了基础公式而导致工作表中出现错误。

我已经找到了：

Sheets("Location_Multiple").Select
Range("A1:AL10000").Select

Selection.Find(What:="#REF!", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

据我了解，我需要输入If参数为true

MsgBox"Please go back and check...."

我只是不确定如果...应该遵循什么...

任何指针将不胜感激。