更改 ggplot2 图例中单个标签的字体（粗体）

Question

我在 R 4.0.2 中有一个数据集，其中两个连续变量分为两组（变量曲线：“Exp.”或“Molecular\\ndynamics”）。我使用 geom_smooth 图层（ggplot2 3.3.2）绘制它们，并按曲线组对它们进行着色，并且我还设置该组为它们赋予不同的线型，但然后我使用 scale_linetype_manual 对其进行修改，分别为它们提供虚线和实线线型。

\n

我想做“Exp”。图例标签加粗。我尝试了很多方法（即对其他人问题的许多答案）来尝试手动重命名图例标签（在scale_linetype_manual中添加labels=；在guides()中尝试了override.aes...），但是我设法做的最好的事情就是获得具有不同标签的重复图例，该图例不保留颜色或线型，也不显示“Exp”。以粗体显示。（我认为问题是我已经使用scale_xxx来手动调整线型，因此我测试过的有关如何编辑标签的其余答案与我的代码不兼容，并且我不具备相关知识找出问题）。

\n

目前的代码：

\n

ggplot() +\n  geom_smooth(data = data, aes(x=`T(K)`, y=dG, color=Curve, linetype=Curve), size=2, se=FALSE) +\n  theme_classic() + scale_color_brewer() +\n  ggtitle(\'Lysozyme\') + xlab(\'T (K)\') + ylab(\'\xe2\x88\x86G (kcal/mol)\') +\n  theme(panel.border = element_rect(colour = "black", fill=NA)) +\n  scale_linetype_manual(values=c("dashed", "solid")) +\n  theme(text = element_text(family="", size=20),\n        plot.title = element_text(hjust = 0.5, face="bold", size=20),\n        axis.title.y = element_text(size=20, margin=margin(r=25)),\n        axis.title.x = element_text(size=20, margin=margin(t=25)),\n        axis.text = element_text(size=20, color="black"),\n        legend.text = element_text(margin = margin(t = 10, b = 10, unit = "pt")),\n        legend.key.size = unit(2,"line"))\n

\n

\n

可重现的示例：

\n

\r\n

\r\n

data <- structure(list(Curve = c("Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", \n"Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "Exp.", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", "MolDyn", \n"MolDyn", "MolDyn"), x = c(223, 225.240506329114, 227.481012658228, \n229.721518987342, 231.962025316456, 234.20253164557, 236.443037974684, \n238.683544303797, 240.924050632911, 243.164556962025, 245.405063291139, \n247.645569620253, 249.886075949367, 252.126582278481, 254.367088607595, \n256.607594936709, 258.848101265823, 261.088607594937, 263.329113924051, \n265.569620253165, 267.810126582278, 270.050632911392, 272.291139240506, \n274.53164556962, 276.772151898734, 279.012658227848, 281.253164556962, \n283.493670886076, 285.73417721519, 287.974683544304, 290.215189873418, \n292.455696202532, 294.696202531646, 296.936708860759, 299.177215189873, \n301.417721518987, 303.658227848101, 305.898734177215, 308.139240506329, \n310.379746835443, 312.620253164557, 314.860759493671, 317.101265822785, \n319.341772151899, 321.582278481013, 323.822784810127, 326.063291139241, \n328.303797468354, 330.544303797468, 332.784810126582, 335.025316455696, \n337.26582278481, 339.506329113924, 341.746835443038, 343.987341772152, \n346.227848101266, 348.46835443038, 350.708860759494, 352.949367088608, \n355.189873417722, 357.430379746835, 359.670886075949, 361.911392405063, \n364.151898734177, 366.392405063291, 368.632911392405, 370.873417721519, \n373.113924050633, 375.354430379747, 377.594936708861, 379.835443037975, \n382.075949367089, 384.316455696203, 386.556962025316, 388.79746835443, \n391.037974683544, 393.278481012658, 395.518987341772, 397.759493670886, \n400, 223, 225.240506329114, 227.481012658228, 229.721518987342, \n231.962025316456, 234.20253164557, 236.443037974684, 238.683544303797, \n240.924050632911, 243.164556962025, 245.405063291139, 247.645569620253, \n249.886075949367, 252.126582278481, 254.367088607595, 256.607594936709, \n258.848101265823, 261.088607594937, 263.329113924051, 265.569620253165, \n267.810126582278, 270.050632911392, 272.291139240506, 274.53164556962, \n276.772151898734, 279.012658227848, 281.253164556962, 283.493670886076, \n285.73417721519, 287.974683544304, 290.215189873418, 292.455696202532, \n294.696202531646, 296.936708860759, 299.177215189873, 301.417721518987, \n303.658227848101, 305.898734177215, 308.139240506329, 310.379746835443, \n312.620253164557, 314.860759493671, 317.101265822785, 319.341772151899, \n321.582278481013, 323.822784810127, 326.063291139241, 328.303797468354, \n330.544303797468, 332.784810126582, 335.025316455696, 337.26582278481, \n339.506329113924, 341.746835443038, 343.987341772152, 346.227848101266, \n348.46835443038, 350.708860759494, 352.949367088608, 355.189873417722, \n357.430379746835, 359.670886075949, 361.911392405063, 364.151898734177, \n366.392405063291, 368.632911392405, 370.873417721519, 373.113924050633, \n375.354430379747, 377.594936708861, 379.835443037975, 382.075949367089, \n384.316455696203, 386.556962025316, 388.79746835443, 391.037974683544, \n393.278481012658, 395.518987341772, 397.759493670886, 400), y = c(-7.68350483903568, \n-6.61614472856118, -5.59380218853684, -4.6165652100245, -3.68452178408595, \n-2.79775990178302, -1.9563675541775, -1.16043273233119, -0.410043427305927, \n0.294712369836497, 0.953740857737224, 1.56679954524656, 2.13397131026955, \n2.65549487174862, 3.13160894862622, 3.56255225984475, 3.94856352434666, \n4.28988146107438, 4.58674478897032, 4.83939222697694, 5.04763466843154, \n5.20722881762394, 5.31798780177217, 5.38112464965697, 5.3978523900591, \n5.3693840517593, 5.29693266353832, 5.18171125417692, 5.02493285245582, \n4.8278104871558, 4.58969168534812, 4.30264171863972, 3.96737774163971, \n3.58597508338174, 3.1605090728994, 2.69305503922635, 2.18568831139618, \n1.64048421844252, 1.05951808939902, 0.444865253299259, -0.205561649971956, \n-0.901038243936931, -1.64050642119888, -2.42230331983255, -3.24476607791261, \n-4.10623183351382, -5.00503772471085, -5.93952088957842, -6.90801846619124, \n-7.90886759262399, -8.94145568102631, -10.011930959601, -11.1209288401495, \n-12.2676518823087, -13.4513026457153, -14.6710836900061, -15.9261975748179, \n-17.2158468597874, -18.5392341045515, -19.8955618687469, -21.2849566323259, \n-22.710219553137, -24.1714730787612, -25.668557173712, -27.201311802503, \n-28.7695769296477, -30.3731925196596, -32.0119985370522, -33.6858349463391, \n-35.3945417120337, -37.1380663945532, -38.9165771494131, -40.7301362239649, \n-42.5788018140465, -44.4626321154956, -46.3816853241496, -48.3360196358465, \n-50.3256932464238, -52.3507643517192, -54.4112911475705, 31.5512317785764, \n31.2374137098356, 30.8987942750184, 30.5353249975297, 30.1469574007745, \n29.7336430081576, 29.2953333430839, 28.8319799289583, 28.3435342891858, \n27.8299479471711, 27.2911692252734, 26.7270645287271, 26.1376795171544, \n25.5231457071126, 24.8835946151589, 24.2191577578505, 23.5299666517448, \n22.8161528133988, 22.0778477593699, 21.3151830062153, 20.5280543700902, \n19.7141241075486, 18.8732892654496, 18.0062181333199, 17.1135790006862, \n16.1960401570755, 15.2542698920144, 14.2889364950296, 13.300708255648, \n12.2902534633964, 11.2572126537412, 10.1972143756774, 9.11065372858087, \n7.99867406591518, 6.86241874114379, 5.70303110773022, 4.52165451913789, \n3.31943232883031, 2.09750789027099, 0.857024556923361, -0.403167652915984, \n-1.68817892472047, -2.99742631923693, -4.32999372200323, -5.68496501855707, \n-7.06142409443628, -8.45845483517863, -9.87514112632187, -11.3105668534038, \n-12.7638159019621, -14.2345507812044, -15.7261587120945, -17.2389897597413, \n-18.7726045932309, -20.3265638816491, -21.9004282940821, -23.4937584996157, \n-25.106115167336, -26.7370589663289, -28.3861505656805, -30.0534596465301, \n-31.7405294405658, -33.4474274073871, -35.1740653792266, -36.9203551883169, \n-38.6862086668903, -40.4715376471795, -42.2762539614168, -44.1002694418348, \n-45.9434959206659, -47.8059045075618, -49.687587843828, -51.5885802231712, \n-53.5089137072123, -55.448620357572, -57.4077322358711, -59.3862814037305, \n-61.3842999227711, -63.4018198546136, -65.438873260879)), class = "data.frame", row.names = c(NA, \n-160L))

\r\n

\r\n

\r\n

\n

Answer 1

具有适当功能的示例和代码可能会很有用。您可以使用ggtext包：

\n

library(ggtext)\nlibrary(ggplot2)\n#Code\nggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+\n  geom_point()+\n  scale_color_discrete(labels=c(\'**setosa**\',\'versicolor\',\'virginica\'))+\n  theme(legend.text = element_markdown())\n

\n

输出：

\n

\n

接下来是您的代码，使用共享的数据：

\n

#Your code\nggplot() +\n  geom_smooth(data = data, aes(x=x, y=y, color=Curve, linetype=Curve),\n              size=2, se=FALSE) +\n  theme_classic() +\n  scale_color_brewer(labels=c("**Exp.**","Molecular dynamics")) +\n  ggtitle(\'Lysozyme\') + xlab(\'T (K)\') + ylab(\'\xe2\x88\x86G (kcal/mol)\') +\n  theme(panel.border = element_rect(colour = "black", fill=NA)) +\n  scale_linetype_manual(values=c("dashed", "solid"),\n                        labels=c("**Exp.**","Molecular dynamics")) +\n  theme(text = element_text(family="", size=20),\n        plot.title = element_text(hjust = 0.5, face="bold", size=20),\n        axis.title.y = element_text(size=20, margin=margin(r=25)),\n        axis.title.x = element_text(size=20, margin=margin(t=25)),\n        axis.text = element_text(size=20, color="black"),\n        legend.text = element_markdown(margin = margin(t = 10,\n                                                       b = 10, unit = "pt")),\n        legend.key.size = unit(2,"line"))\n

\n

输出：

\n

\n