Question

Area          Temperature               Total
        <60     60-64   65-69   >=70    
Urban   4200    3646    1566    537     9949
Rural   14758   15260   6490    2125    38633
Total   18958   18906   8056    2662    48528

如何在使用＆＃34;温度＆＃34;所有四列温度的标题？我目前有Temperature.1，Temperature.2等等。

我也想知道用什么代码进行Chi独立测试。

Answer 1

你可以做到

// setTimeout(function () {
                //     chatToBottom();
                // }, 2000);

Answer 2

根据示例数据，它看起来像一个多行标题。我们可以使用readLines阅读，然后使用read.table

nm1 <- paste0(rep(scan(text=lines[1], what ="", quiet = TRUE), c(1, 4, 1)), 
          c("", scan(text=lines[2], what = "", quiet = TRUE), ""))
df1 <- read.table(text =lines[-(1:2)], sep="", header = FALSE, col.names = nm1, check.names = FALSE)
df1
#   Area Temperature<60 Temperature60-64 Temperature65-69 Temperature>=70 Total
#1 Urban           4200             3646             1566             537  9949
#2 Rural          14758            15260             6490            2125 38633
#3 Total          18958            18906             8056            2662 48528

数据

lines <- readLines(textConnection("Area          Temperature               Total
   <60     60-64   65-69   >=70    
Urban   4200    3646    1566    537     9949
Rural   14758   15260   6490    2125    38633
Total   18958   18906   8056    2662    48528"))

R Chi独立测试和表格格式

2 个答案:

数据