小编bee*_*oot的帖子

我正在为报告创建几个刻面图.刻面的数量在2到8之间变化.理想情况下,我希望每个刻面的绝对大小(跨越图表)是相同的(例如4x4厘米),以便更容易比较它们(它看起来也更好) ).

那可能吗？

df1 <- structure(list(group1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,1L, 1L, 1L, 1L, 1L), .Label = c("S1", "S2"), class = "factor"), group = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("A", "B", "C", "D", "E"), class = "factor"), value = 1:12), class = "data.frame", row.names = c(NA, -12L), .Names = c("group1", "group", "value"))

df2 <- structure(list(group1 = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("S1", "S2"), …

使用autoplotfrom ggfortify来创建诊断图:

library(ggplot2)
library(ggfortify)

mod <- lm(Petal.Width ~ Petal.Length, data = iris)
autoplot(mod, label.size = 3)

是否可以更改轴和标题(轻松)？我想翻译它们.

这是df的一个例子:

df <- structure(list(x = 1:30, y = 101:130, g = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("A", "B", "C"), class = "factor")), .Names = c("x", "y", "g"), row.names = c(NA, -30L), class = "data.frame")

我想在过滤后的数据中获得每组10个最低y值.

但

df2 <- df %>% filter(x>3) %>% group_by(g) %>%  tail(y, n=10)

仅返回最后一组的行(在本例中为C):

Source: local data frame [10 x …

我有一个名为"seoul032823"的81个观察的每小时PM10数据集.你可以从这里下载.我在这个数据集上进行了普通克里金法,并得到了克里金预测的空间图.我还可以在国家地图上显示观察数据点.但我不能在国家地图上重叠克里格空间预测图.

我想做什么:我想在南韩地图(不是整个韩国)上重叠我的空间预测图.我感兴趣的领域是北纬37.2N到37.7N和经度126.6E到127.2E.这意味着我需要从韩国地图中裁剪这个区域并在此处重叠预测图.我还需要根据浓度值显示原始观测数据点,这些点将遵循空间地图的颜色.例如,我想要这种类型的地图:

我的R代码用于克里金法,并在韩国地图上显示数据点:

library(sp)
library(gstat)
library(automap)
library(rgdal)
library(e1071)
library(dplyr)
library(lattice)

seoul032823 <- read.csv ("seoul032823.csv")

#plotting the pm10 data on Korea Map
library(ggplot2)
library(raster)

seoul032823 <- read.csv ("seoul032823.csv")
skorea<- getData("GADM", country= "KOR", level=1)
plot(skorea)

skorea<- fortify(skorea)
ggplot()+
  geom_map(data= skorea, map= skorea, aes(x=long,y=lat,map_id=id,group=group),
           fill=NA, colour="black") +
  geom_point(data=seoul032823, aes(x=LON, y=LAT), 
             colour= "red", alpha=0.7,na.rm=T) +
  #scale_size(range=c(2,4))+
  labs(title= "PM10 Concentration in Seoul Area at South Korea",
       x="Longitude", y= "Latitude", size="PM10(microgm/m3)")+
  theme(title= element_text(hjust = 0.5,vjust = 1,face= c("bold")))

# Reprojection
coordinates(seoul032823) <- ~LON+LAT …

有没有办法通过rmarkdown轻松将数据框转换为Word表格？

如果我在RStudio中使用rmarkdown创建一个Word文档,我会得到一个很好的打印表,但它不会被识别为Word表.它可以完成吗？

   ```{r}
   name_of_df
   ```

使用facet_wrap,是否可以只删除一些方面标签？在以下示例中,我希望Species标签仅出现在每行的第一列中.我知道我可以使用该labeller功能,但不知道如何更改单个标签.

data(iris)
library(tidyr)
library(ggplot2)

dat <- iris %>%
  gather(var, val, Sepal.Length:Petal.Width) 

ggplot(dat) +
  geom_point(aes(x = 1, y = val)) +
  facet_wrap(Species~var)

我有这样一个数据框:

df <- structure(list(a = c(NA, NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), b = c(NA, NA, NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L), d = c(NA, NA, NA, NA, 1L, 2L, 3L, 4L, 5L, 6L)), .Names = c("a", "b", "d"), row.names = c(NA, -10L), class = "data.frame")

> df
    a  b  d
1  NA NA NA
2  NA NA NA
3   1 NA NA
4   2  1 NA
5   3  2  1
6   4  3  2 …

我正在计算年份和参考年份之间的差异.我想将结果用作图中的x值.但是如何用正数(-2,-1,0,+ 1,+ 2)打印+号？

dat <- data.frame(year = c(2000, 2001, 2002, 2003, 2004), ref = rep(2002)) 
dat$diff <- dat$year - dat$ref

ggplot(dat, aes(x = diff))

我遇到的问题是，当我使用setwd()包含空格的路径时（例如setwd("C:/Users/Name/My Documents/")，我收到错误消息

“无法更改工作目录”

我有点惊讶我在这里或谷歌上没有找到太多关于这个的信息 - 所以我认为这一定是一个罕见的错误或者每个人都知道它。不管怎样，有没有理由要解决这个问题？

我使用的是 Windows 7 和 R 版本 3.0.2。

我试图将带有下标的表达式传递给geom_text()中的单个标签ggplot。这是我现在的代码：

my_exp <- expression('my_exp'[s][u][b])

my_data <- 
  data.frame(
    var_1 = c("a", "b", "c"),
    var_2 = c(1, 2, 3)
  )

my_data %>%
  ggplot(aes(x = var_1, y = var_2))+
  geom_text(aes(label = var_1))

这是结果图：

我想做的是将 的var_1值替换"a"为 由 指定的表达式my_exp，然后geom_text()将该值作为表达式求值，从而导致下标出现在 ggplot 上。