Question

我是r的初学者。我有这个脚本：

Sub addnewrow()
    Dim addrow As String
    addrow = InputBox("type the row number to insert")
    If addrow <> "" And IsNumeric(addrow) = True Then
        Rows(addrow).Insert shift:=xlDown
    Else
        MsgBox ("enter only row number")
    End If
End Sub

输出表按此顺序包含BMIcate类别：

BMIcate<-character(0)  
BMIcate[adultkidneytx$BMI < 20] <- "< 20"  
BMIcate[adultkidneytx$BMI>= 20 & adultkidneytx$BMI <= 25] <- "20 - 25"  
BMIcate[adultkidneytx$BMI > 25 & adultkidneytx$BMI <=30] <- "25 - 30"  
BMIcate[adultkidneytx$BMI > 30 ] <- ">30"  

table(BMIcate)

table(BMIcate, adultkidneytx$TypeTx)

table.BMIgroup<- table(BMIcate, adultkidneytx$TypeTx)

Answer 1

你应该使用剪切功能

BMI <- cut(adultkidneytx$BMI ,breaks = c(20,25,30) )

然后根据需要更改标签

如何在R中安排表输出范围

1 个答案: