小编scs*_*scs的帖子

是否有可能创建一个箱形图,显示平均值和中位数作为R的标准箱图函数的线？我当前的解决方案显示平均值为十字架:

set.seed(1234)
values <- runif(10,0,1)
boxplot(values)
points(mean(values),col="red",pch=4,lwd = 4)

尝试创建包含未编号部分的目录时，即使经过多次重复编译，我也会得到一个空目录。

当我使用编号部分时，目录工作正常。

下面显示了一个示例（完整的 Latex 文档）（我试图使其尽可能简单）：

\documentclass[12pt,a4paper,english]{article}

\begin{document}
\tableofcontents
\section*{Testsection} %Works when section* is replaced with section
 Test
\end{document}

我有一个包含大量重复项的矩阵,并希望获得一个矩阵,其中包含唯一行和每个唯一行的频率计数.

下面显示的示例解决了这个问题,但速度很慢.

rowsInTbl <- function(tbl,row){
  sum(apply(tbl, 1, function(x) all(x == row) ))
}

colFrequency <- function(tblall){
  tbl <- unique(tblall)
  results <- matrix(nrow = nrow(tbl),ncol=ncol(tbl)+1)
  results[,1:ncol(tbl)] <- as.matrix(tbl)
  dimnames(results) <- list(c(rownames(tbl)),c(colnames(tbl),"Frequency"))

  freq <- apply(tbl,1,function(x)rowsInTbl(tblall,x))
  results[,"Frequency"] <- freq
  return(results)
}


m <- matrix(c(1,2,3,4,3,4,1,2,3,4),ncol=2,byrow=T)
dimnames(m) <- list(letters[1:nrow(m)],c("c1","c2"))
print("Matrix")
print(m)

[1] "Matrix"
  c1 c2
a  1  2
b  3  4
c  3  4
d  1  2
e  3  4

print("Duplicate frequency table")
print(colFrequency(m))


[1] "Duplicate frequency table"
  c1 c2 Frequency
a  1  2         2 …

我想转换一个表,一个数据帧.

例:

tbl <- structure(c(1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L), .Dim = c(4L, 2L), .Dimnames = structure(list(
c("1", "2", "3", "4"), colNames = c("2013 3", "2014 12")), .Names = c("", "colNames")), class = "table")

colNames
     2013 3 2014 12
1      1       1
2      0       0
3      0       0
4      0       0

转换为数据框会导致完全不同的数据结构.为什么？

as.data.frame(tbl)

Var1 colNames Freq
1    1   2013 3    1
2    2   2013 3    0
3    3   2013 3 …