R 如何在不使用%>；%的情况下以常规格式编写以下代码？

这是创建星形/极坐标图的代码

# install package for this customized spider chart
devtools::install_github("ricardo-bion/ggradar", dependencies=TRUE)

library(ggradar)
suppressPackageStartupMessages(library(dplyr))
library(scales)   

mtcars %>%
   add_rownames( var = "group" ) %>%
   mutate_each(funs(rescale), -group) %>%
   tail(4) %>% select(1:10) -> mtcars_radar

---

这很简单：

mtcars[]31玛莎拉蒂宝来0.1957447 1.0 0.5734597 1.0000000.3594470 0.5259524
#>32沃尔沃142E 0.4680851 0.0 0.1244699 0.2014134 0.6221198 0.3239581
#>qsec vs am
#> 29 0.00000000  0  1
#> 30 0.11904762  0  1
#> 31 0.01190476  0  1
#> 32 0.48809524  1  1

%%>%%

只需获取前面的表达式/函数的结果，并将其作为后面的表达式/函数的第一个参数传递。所以下面是等价的

 ggradar(mtcars_radar) #gives you the following spider chart

库（ggradar）
图书馆（dplyr）
图书馆（比例尺）
mtcars
重新缩放
？它是自定义函数还是某个包中的函数？基本上，每个函数的第一个参数都是在前一步中创建的数据帧。例如，
df1%
管道更优雅，可读性更强。@AdamQuek是的，我相信这是一个定制的功能。请查看编辑的一个当我尝试运行spider1_雷达时（将您的格式用于另一个类似的数据集），它显示“尾部错误（spider1，5）[，c（1:7，长度（spider1））]：不正确的尺寸数”。你能帮我吗？str（spider1）

长什么样？它是一个data.frame吗？>str（spider1）“table”int[1:5，1:7]0 0 0 1 0 0 1 1…-attr（*，“dimnames”）=2.0美元的列表：chr[1:5]“巴伦/欧伦格雷乔伊”“乔弗里/汤门巴拉森”“罗布斯塔克”…$：chr[1:7]“墙外”“皇冠之地”“北方”“延伸”\n spider1=table（得到$attacking_king，得到$region）啊，是的，这是一个表（实际上是一个奇特的矩阵），而不是一个data.frame。尝试

spider1我转换为数据帧矩阵，但当我尝试运行ggradar（spider3_radar）…它显示“错误在FUN（X[[I]]，…）：仅在具有所有数值变量的数据帧上定义”spider1包含新创建的数据帧矩阵的所有列和一个“组”列。运行spider1_雷达时，在现有spider1数据帧中又添加了一个名为“group.1”的列。同样奇怪的是，列中的值也发生了变化。像“1”变成了0.33和0.22等。请帮助
library(ggradar)
library(dplyr)
library(scales)    

mtcars <- add_rownames(mtcars, var = "group")
mtcars <- mutate_each(mtcars, funs(rescale), -group)
mtcars <- tail(mtcars, 4)
mtcars <- select(mtcars, 1:10)
mtcars_radar <- mtcars

ggradar(mtcars_radar)