小编Chr*_*ume的帖子

我正在检查我的包裹,这实际上是最后一个问题.pdf文件无法编译,日志文件告诉我

2015-10-15 14:17:47,430+0200 INFO  pdflatex - running 'initexmf --quiet --update-fndb' to refresh the file name database
2015-10-15 14:17:50,276+0200 FATAL pdflatex - GUI framework cannot be initialized.
2015-10-15 14:17:50,276+0200 FATAL pdflatex - Info: 
2015-10-15 14:17:50,276+0200 FATAL pdflatex - Source: Libraries\MiKTeX\UI\Qt\mikuiqt.cpp
2015-10-15 14:17:50,276+0200 FATAL pdflatex - Line: 50

知道问题可能在哪里？

Q1.我正在使用ggplot的geom_boxplot绘制数据集.但是,当我尝试使用geom_jitter()绘制所有数据点时,我的数据中的异常值是重复的.所有其他数据点都没问题.问题出在哪儿？

示例代码:

PeakPeriod_24h <- c (31.05820, 23.83500, 24.36254, 25.31609, 24.21623, 23.90320) 
condition <- rep("HL",6)
data_HL <- data.frame(condition, PeakPeriod_24h)
p <- ggplot(data_HL, aes(x=condition, y=PeakPeriod_24h, fill=condition))
p + geom_boxplot()+
  geom_jitter(width = 0.3)+
  theme_bw()+
  coord_flip()+
  geom_hline(aes(yintercept=24.18), colour="brown1", linetype="dotted", size = 1.4)+
  scale_y_continuous(limits=c(), name = "Period Length")+
  ggtitle("Boxplots\nHabitual Light")+
  scale_fill_manual(values = c("gray60"))+
  theme(plot.title = element_text(size=14, face="bold", vjust = .5),
    axis.title.y = element_blank(),
    axis.text.y = element_blank(),
    axis.title.x = element_text(size=12, face = "bold"),
    axis.text.x = element_text(size = 10, face = "bold", colour = "gray20"))+
  guides(fill=FALSE)

谢谢!

我真的无法解决这个问题：

我有一个返回数据帧的函数。但是，虽然我希望将数据帧存储在工作空间中，但是数据帧仅在控制台中打印。我该如何实现？

样本数据：

n <- 32640
t <- seq(3*pi,n)
data_sim <- 30+ 2*sin(3*t)+rnorm(n)*10
data_sim <- floor(data_sim)

功能：

compress <- function (name, SR){
  ## -------------------------------------------------------
  ## COMPRESSION
  library(zoo)
  data <- get(name)
  if (is.data.frame(data)==F){
    data = as.data.frame(data)
  }
  SR <- SR
  acrossmin <- 60  
  a <- nrow(data) 
  m <- acrossmin*SR*60  
  data_compress <- matrix(NA, nrow = a/m) 
  no_mov_subset <- matrix(NA, nrow = m) 
  for (i in 1:(a/m)){
    subset <- data[(((i-1)*m)+1):((i*m)),] 
    b <- length(subset)
    for (k in 1:b){
      r <- subset[k]
      if (r == …