我怎样才能把字符放在数字前面？ xx=矩阵（，ncol=4，nrow=6） x=虹膜[，1:4] i=1 而（i

这里是“重新编码”的一种方法，

摘要

功能

我正在尝试使用

xxapply

函数。这里有powfrul工具，是做事情的标准方法。避免在R中循环，特别是它们的副作用

xx=matrix(,ncol=4,nrow=6)
x=iris[,1:4]   

i=1
while(i<=4){
  xx[1,i]=min(x[,i])
  xx[2,i]=quantile(x[,i])[2]
  xx[3,i]=median(x[,i])
  xx[4,i]=mean(x[,i])
  xx[5,i]=quantile(x[,i])[4]
  xx[6,i]=max(x[,i])
  i=i+1
  dimnames(xx)=list(c("Min", "1st Qu", "median","mean","3rd Qu","Max"), names(x))
  dimnames(xx)[[1]]=rep("",nrow(xx)) 
  options(digits=4) 
}
print(xx)

与

摘要（iris[，1:4]）相比

：

---

下面是我如何从

cgwtools:：mystat

将类似的输出打印到控制台（

numdig

是定义显示精度的函数参数）

---

allstats什么是
xx
？它是不可复制的。您可能需要添加
xx编辑您的问题，而不是评论如果您刚刚删除
dimnames（xx）[[1]]=rep（“，nrow（xx））
？@user3686685，只需删除
dimnames（xx）[[1]=rep
就像@flodel所说的，你的问题已经解决了。你可以在每行中添加
paste0
。例如，代替
xx[1，i]=min（x[，i]）
，放置
xx[1，i]=paste0（“min:”，min（x[，i]）
等
## helper function
Quantile <- function(which,...)
  function(...)quantile(...)[which]
## init functions and columns 
funcs <- 
 c(min,Quantile(2),median,mean,Quantile(4),max)
names <- 
c("Min   ", "1st Qu", "Median","mean  ","3rd Qu","Max   ")
## a summary of o column
summary_vector <- 
function(x)
 mapply(function(n,f)paste(n,format(f(x),digits=2),sep=':'),
   names,funcs)
## apply it for all columns   
sapply(iris[,1:4],summary_vector)

       Sepal.Length Sepal.Width  Petal.Length Petal.Width 
Min    "Min   :4.3" "Min   :2"   "Min   :1"   "Min   :0.1"
1st Qu "1st Qu:5.1" "1st Qu:2.8" "1st Qu:1.6" "1st Qu:0.3"
Median "Median:5.8" "Median:3"   "Median:4.3" "Median:1.3"
mean   "mean  :5.8" "mean  :3.1" "mean  :3.8" "mean  :1.2"
3rd Qu "3rd Qu:6.4" "3rd Qu:3.3" "3rd Qu:5.1" "3rd Qu:1.8"
Max    "Max   :7.9" "Max   :4.4" "Max   :6.9" "Max   :2.5"

 Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
 Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
 1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
 Median :5.800   Median :3.000   Median :4.350   Median :1.300  
 Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
 3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
 Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500

 allstats <- data.frame(cbind(min = min(x), max = max(x), 
        mean = mean(x), median = median(x), sdev = sd(x), skew = theskew(x), 
        kurtosis = thekurt(x)), row.names = "")
    if (printit) {
        print(format(allstats[1:4], digits = numdig))
        print(format(allstats[5:7], digits = numdig))
    }