在包含帶有 paste() 的向量的基本 R 圖中制作粗體軸標題

Question

假設我繪制了一個涉及以下代碼行的圖：

#Sample Code
calc1 <- 1/4
a <- paste(calc1, "X", sep = "")
calc2 <- (1/2)*100
b <- paste(calc2, "%", sep = "")

x <- c(1, 2, 3)
y <- c(4, 5, 6)

#Plot (Regular Axis Titles)
plot(x, y,
     xlim = c(1, 3),
     xlab = a,
     ylim = c(4, 6),
     ylab = b)

有沒有辦法在直接調用具有 paste() 函數的向量時制作粗體軸標題？ 這是我提出的解決方法：

#Plot (Bold Axis Titles, Workaround)
plot(x, y,
     xlim = c(1, 3),
     xlab = expression(bold("0.25X")),
     ylim = c(4, 6),
     ylab = expression(bold("50%")))

以下是失敗的嘗試：

#Attempt 1 
plot(x, y,
     xlim = c(1, 3),
     xlab = expression(bold(a)),
     ylim = c(4, 6),
     ylab = expression(bold(b)))

#Attempt 2
plot(x, y,
     xlim = c(1, 3),
     xlab = expression(bold(paste(calc1, "X", sep = ""))),
     ylim = c(4, 6),
     ylab = expression(bold(paste(calc2, "%", sep = ""))))

這就是為什么我不想在使用 expression(bold()) 之前手動編碼向量的返回元素以進行軸標記：

Answer 1

您可以使用par(font.lab = 2)設置粗體軸標題。

calc1 <- 1/4
a <- paste(calc1, "X", sep = "")
calc2 <- (1/2)*100
b <- paste(calc2, "%", sep = "")

x <- c(1, 2, 3)
y <- c(4, 5, 6)


par(font.lab = 2)
plot(x, y,
     xlim = c(1, 3),
     xlab = paste(calc1, "X", sep = ""),
     ylim = c(4, 6),
     ylab = paste(calc2, "%", sep = ""))