小编Joe*_*ier的帖子

我遇到了与该用户报告的类似问题。数值变量和连续变量被视为分类变量。让我们也使用汽车数据集，这样我们就有了可重现的东西可以使用。可以说我只是这样做：

tbl_summary(mtcars)

大多数变量将被视为连续变量，但例如气缸、齿轮和碳水化合物将被视为分类变量。我理解（根据另一个问题）如何将所有变量视为连续变量，但是如果我喜欢我的大部分表格并且只想更改齿轮以将其视为连续变量怎么办？那可能吗？

在我的真实数据集中，我希望被视为连续的变量已经是一个数值变量，我真的不明白为什么它被视为分类变量，所以我想指定 gtsummary 应该将该特定变量视为连续变量。

我有一个这样的数据集：

PatientNum<- c(1, 2, 3, 4, 5)
Age<- c(10, 21, 51, 42, 35) 
SurgicalProcedureNumber <- c(21356, 21424, 221356, 12345, 54321) 
OtherSurgicalProcedureNumber   <- c(54321, 21356, 12345, 12345, 21424) 
BloodLoss<-c(5,4,5,10,5)
YetAnotherSurgicalProcedureNumber<-c(11111,22222,33333,21356,555555)

dataset <- data.frame(PatientNum, Age, SurgicalProcedureNumber, OtherSurgicalProcedureNumber, BloodLoss,YetAnotherSurgicalProcedureNumber)  

我想知道患者何时接受某些手术：

NumbersIcareAbout<- c(21356,21424)

我知道在我可以做的一栏中找到它们：

dataset%>%filter(SurgicalProcedureNumber%in%NumbersIcareAbout)

这将返回患者 1 和 2，因为它有这些代码...但我希望它在这些数字出现在 SurgicalProcedureNumber、OtherSurgicalProcedureNumber 或 YetAnotherSurgicalProcedureNumber 中时返回该行

不知道如何，也无法在这里找到它。

我进行了搜索，发现了类似的内容，但是没有什么是正确的。希望这还没有得到解决。

可以说我有一列Y，N，有时还有其他信息

    df<-data.frame(Names=c("Patient1","patient2","Patient3","Patient4","patient5"),Surgery=c("Y","N","Y-this kind of surgery","See note","Y"))

我正在尝试将Y或N分成一列，并将其他所有内容从该列中分开。

我试过了

    df%>%separate('Surgery',c("Surgery","Notes"), sep=" ")

最终将出现一列，其中包含“ see”，下一列包含“ notes”

    df%>%separate('Surgery',c("Surgery","Notes"), sep = '^Y|^N')

变得奇怪

    df%>%separate('Surgery',c("Surgery","Notes), sep= "^[YN]?")

正确拆分音符，删除Y和N。

有人知道如何分开吗？我要查找的结果将在手术列中仅包含Y或N，而将其他任何内容推送到其他列。

当我想要的只是 pdf 中的一些漂亮表格时，我感觉自己已经掉进了兔子洞。说来话长，这里是：

我想从 r markdown 将一些表格打印到 PDF 中。我通常使用 Kable，效果很好。话虽这么说，这个表将有一些非常长的值，以及生成的未知数量的列，当我在 kable 中还不知道时，我很难指定哪一列的宽度。不管怎样，这让我变得灵活。

当我编织到 html 时，表格看起来很棒，如下所示：

但我在编织 pdf 时遇到了麻烦。我通过其他堆栈答案了解到，flextable 需要保存为图像才能绘制为 pdf。所以我有这样的代码：

ft <- flextable(x)
ft <- autofit(ft)
tf <- tempfile(fileext = ".png")
## Not run: 
if( require("webshot2") ){
 save_as_image(x = ft, path = "myimage.png")
}

plot(tf)

但一开始它给了我错误，我没有 webshot2 包，所以在遇到一些麻烦后我安装了它（它与我的 R 版本不符（我在 rstudio.cloud 上），然后当我现在尝试运行它，它说

我错过了一些明显的东西吗？如何将弹性表格另存为图像，然后将其绘制在我的 pdf 中？

我还在这里尝试了 Joanna 的解决方案：Is it possible to generated the RTable (FlexTable) in pdf with RMarkdown? r 告诉我找不到函数“as.html”。即使 flextable 和 htmltools 都已加载。

考虑到生成表格的所有代码以及我需要将其编织成 pdf 的事实，提供可重复数据的 PS …

我认为我的问题与这个问题非常相似，唯一的区别是我喜欢使用 ggplot （并且 ggplot 的答案缺少一点细节）。我有这样的数据：

show<-structure(list(Median = c(20, 39, 21, 52, 45.5, 24, 36, 20, 134, 
27, 44, 43), IQR = c(4, 74, 28, 51.5, 73.5, 18, 47.5, 26.5, 189.5, 
46, 54, 61), FirstQuartile = c(`25%` = 19, `25%` = 24, `25%` = 12, 
`25%` = 30.5, `25%` = 36.5, `25%` = 18, `25%` = 16.5, `25%` = 13, 
`25%` = 53.5, `25%` = 15, `25%` = 24.5, `25%` = 27), ThirdQuartile = c(`75%` = 23, 
`75%` = 98, …