我希望在 ggplot 中为图表标题添加下标，看起来像这样：

_{k 1}、k ₂和 k ₃的值存储在变量中：k1，k2和k3

可重现的示例

data <- data.frame(age = 30:32, count = 2:4)

k1 <- 2
k2 <- 9 
k3 <- 4

可能的方法：解析文本

我已经能够通过粘贴表达式并对其进行解析来添加变量名称和值，如下所述：

title <- paste0("k[1]*", k1, "~k[2]*", k2, "~k[3]*", k3)
title_parsed <- parse(text = title)

data %>% 
   ggplot(aes(x = age, y = count)) + 
   geom_point() +
   ggtitle(title_parsed)

其结果为：

另一种可能的方法：使用 bquote

并且能够使用 bquote 正确显示标题的固定部分（等号和逗号）（但无法从我的变量中添加 k 的值）：

data %>% 
   ggplot(aes(x = age, y = count)) + 
   geom_point() +
   ggtitle(bquote(k[1]*" = ,"  ~k[2]*" = and" ~ k[3]*" = "))

我还可以将它们组合起来，生成一个简短的标题，只有一个 k 值：

title <- paste0("k[1]*", "\" = \"*", k1)
title_parsed <- parse(text = title)

data %>% 
   ggplot(aes(x = age, y = count)) + 
   geom_point() +
   ggtitle(title_parsed)

但是对于具有多个 k 值的较长标题，我无法解析逗号旁边带有数字的文本字符串。（例如，以下两个值title在输入到解析函数中时都会引发错误）

title <- paste0("k[1]*", "\" = \"*", k1, "*,")
title <- paste0("k[1]*", "\" = \"*", k1, ",")

title_parsed <- parse(text = title)

该问题似乎是逗号和其他特殊字符所特有的，因为我可以在数字后添加其他文本：

title <- paste0("k[1]*", "\" = \"*", k1, "~text")
title_parsed <- parse(text = title)

我做错了什么？我想知道是否需要在逗号前使用转义字符，但 \、\\ 和 \\\ 的组合似乎不起作用。

我想从 R 中的向量中选择某些元素（按索引）。但是，我希望结果向量还包含我在其末尾未指定的其余元素（即输出应与输入向量的长度相同，并且每个元素应仅返回一次）。输入向量可以是任意长度。

本质上，我正在寻找类似 dplyr 中的选择过程的东西：

df %>%
    select(col1, col2, everything())

其中 everything() 确保未指定的列仍然返回到输出数据框中指定列的右侧。

例子

假设我想从下面的每个向量中选取第二和第四个元素

Vector1 <- c("apple", "pear", "peach", "plum", "orange")
Vector2 <- c("lettuce", "carrot", "broccoli", "peas", "onion", "kale", "courgette")

预期输出为：

• 来自向量 1：“梨”“李子”“苹果”“桃子”“橙子”

• 来自向量 2：“胡萝卜”“豌豆”“生菜”“西兰花”“洋葱”“羽衣甘蓝”“西葫芦”

可能的解决方案

以下方法可行，但有点冗长。对于Vector1，代码如下：

Vector1[c(2, 4, setdiff(1:length(Vector1), c(2, 4)))]

这给出了上面指定的预期输出：

将其放入函数中：

move_elements_to_start_of_vector <- function(vector, element_indices_for_start){

        element_indices_for_end <- setdiff(1:length(vector), element_indices_for_start)
        order_of_elements <- c(element_indices_for_start, element_indices_for_end)

        return(vector[order_of_elements])

}

检查其是否有效：

move_elements_to_start_of_vector(Vector2, c(2, 4)) 

也给出了预期的输出。

是否存在更简单的函数来实现与基础 R 或通用库中现有的相同结果？

我希望制作一个表格，每个单元格中都有水平条形图，以显示具有 2 个分类独立变量的连续数值数据。它看起来类似于以下内容（虚构数据）：

我之前尝试过使用 formattable，但保存输出时遇到了很大困难。似乎只有使用 phantomjs 才有可能，但我无法在工作电脑上安装它。或者，我可以从 RStudio 查看器手动复制，但这会产生非常像素化的输出。似乎一定有更好的方法

是否有使用 ggplot2 或基础 R 的解决方案？与使用 formattable 相比，这也使得自定义输出变得更容易。