R 如何删除函数中的自动文本？

我对函数不熟悉，正在努力学习

让我们说我有

norm <- function(z){

  n = as.numeric(table(is.na(z))[1])
  m = mean(z, na.rm=T)
  stddev = sd(z, na.rm=T)
  
outdata = data.frame(n=n, 
                     mean=round(m, digits = 1), 
                     sd=round(stddev, digits = 1),
                     median=round(median(z), digits = 1),
                     Q1=round(quantile(z)[2], digits = 1),
                     Q3=round(quantile(z)[4], digits = 1),
                     lower_t.dist=round(m-sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                        digits = 1), 
                     upper_t.dist=round(m+sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                        digits = 1),
                     lower_frac = round(quantile(z, probs = c(0.025)), 
                                        digits = 1),
                     upper_frac = round(quantile(z, probs = c(0.975)),
                                        digits = 1))
return(outdata)
}

---

问题：为什么它会自动在左侧打印

25%

，如何将其删除，使其成为一个空白？

如果您不想看到任何行名，甚至不想看到编号，您可以这样做

norm <- function(z){
  
  n = as.numeric(table(is.na(z))[1])
  m = mean(z, na.rm=T)
  stddev = sd(z, na.rm=T)
  
  outdata = data.frame(n=n, 
                       mean=round(m, digits = 1), 
                       sd=round(stddev, digits = 1),
                       median=round(median(z), digits = 1),
                       Q1=round(quantile(z)[2], digits = 1),
                       Q3=round(quantile(z)[4], digits = 1),
                       lower_t.dist=round(m-sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                          digits = 1), 
                       upper_t.dist=round(m+sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                          digits = 1),
                       lower_frac = round(quantile(z, probs = c(0.025)), 
                                          digits = 1),
                       upper_frac = round(quantile(z, probs = c(0.975)),
                                          digits = 1))
             rownames(outdata) <- rep("", nrow(outdata))
  return(outdata)
}

---

您可以使用

rownames（outdata）太好了，谢谢这回答了您的问题吗？行名称来自
quantile（z）[2]
是的，谢谢，这回答了我的问题和很好的解决方案旋出问题。我想将outdata中的名称
lower\u frac
更改为
25%
，但是当更改为
“25%”=四舍五入（分位数（…
）时，函数将打印
X25.
。您知道如何修复它，使其打印´“25%”而不是
“lower\u frac”
或
X25.
？编辑：不，通常您可以使用``进行编辑，但我认为由于百分号的原因，这在这里可能不起作用。不过，我建议将此作为一个单独的问题来问。可能有解决方法
norm <- function(z){
  
  n = as.numeric(table(is.na(z))[1])
  m = mean(z, na.rm=T)
  stddev = sd(z, na.rm=T)
  
  outdata = data.frame(n=n, 
                       mean=round(m, digits = 1), 
                       sd=round(stddev, digits = 1),
                       median=round(median(z), digits = 1),
                       Q1=round(quantile(z)[2], digits = 1),
                       Q3=round(quantile(z)[4], digits = 1),
                       lower_t.dist=round(m-sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                          digits = 1), 
                       upper_t.dist=round(m+sqrt(1+(1/n)) * qt(0.975, df=n-1) * stddev, 
                                          digits = 1),
                       lower_frac = round(quantile(z, probs = c(0.025)), 
                                          digits = 1),
                       upper_frac = round(quantile(z, probs = c(0.975)),
                                          digits = 1))
             rownames(outdata) <- rep("", nrow(outdata))
  return(outdata)
}

> norm(iris$Sepal.Length)
   n mean  sd median  Q1  Q3 lower_t.dist upper_t.dist lower_frac upper_frac
 150  5.8 0.8    5.8 5.1 6.4          4.2          7.5        4.5        7.7