如何使用膠水或 r 中的任何 package 將表中的值和名稱輸入大括號

Question

我有一個表格，我想使用那里的信息與下面使用膠水 package 編寫的內容混合，或者如果 r 中有其他包可以更好地處理這種情況，我願意接受建議

第一桌

客戶	平均的
支付網絡	₦373.57
監護人	₦321.20
球員	₦306.57
青銅	₦316.58

第二張桌子

	支付網絡	監護人	球員	青銅
低於平均水平	23%	50%	60%	90%
高於平均水平	77%	50%	40%	105

我想要的是創建一個場景，一旦在大括號中調用了變量名稱，那么他應該使用 Glue package 或任何其他可以完美完成工作的 package 輸入在大括號中調用的值。

這就是我想要實現的

在這里，我希望從表中調用每筆交易的兩個最高平均值以輸入大括號所在的位置

例如，{Minders} 和 {Play Network} 的每筆交易價值最高，但大約 {23%} 和 {50%} 的客戶在 2 月份的整體購買價值低於平均水平

output 當然不會顯示大括號。 我只是以此為例，主要的 output 看起來像這樣

Minders 和 Play-Network 的每筆交易價值最高，但在 2 月份，大約 23% 和 50% 的客戶的整體購買價值低於平均水平

Answer 1

首先，這是您的數據，采用更易於復制/粘貼的格式，所有數值均以數字形式輸入

dd1 <- read.table(text="Client,Average
Pay Network,373.57
Minders,321.20
Players,306.57
Bronze,316.58", sep=",", header=T)

dd2 <- read.table(text="Group,Pay Network,Minders,Players,Bronze
Below Average,23,50,60,90
Above Average,77,50,40,10", sep=",", header=T, check.names=F)

然后您可以組合這些表以獲得所需的摘要信息

library(dplyr)
library(tidyr)

summary <- dd2 %>% 
  pivot_longer(-Group) %>% 
  filter(Group=="Below Average") %>% 
  inner_join(dd1, by=c("name"="Client")) %>% 
  slice_max(Average, n=2)
summary
# A tibble: 2 x 4
#   Group         name        value Average
#   <chr>         <chr>       <int>   <dbl>
# 1 Below Average Pay Network    23    374.
# 2 Below Average Minders        50    321.

現在我們有了感興趣的 output，我們可以使用匯總表構建字符串。

glue::glue("{summary$name[1]} and {summary$name[2]} have the highest value per transaction, ",
           "yet about {summary$value[1]} and {summary$value[2]} of their customers made overall ", 
           "purchases below average value in the month of Feb")

這將給出你想要的字符串。