r - 将数据框中的拟合数据绘制为并排条形图

Question

我有一个数据框，它来自 lm 子集，该子集由为每个受试者计算的截距 (ordenada) 和斜率 (velocidad1) 组成。

 A
                  UT1    UT2          UT3      UT4
    ordenada   1213.8 2634.8 3.760000e+02 -11080.8
    velocidad1    1.5   -2.5 6.615954e-14     20.0
                  UT5          UT6           UT7
    ordenada   1711.8 1.739000e+03  1.800000e+01
    velocidad1   -2.5 5.039544e-14 -9.154345e-16
                  UT8   UT9   UT10  UT11   UT12
    ordenada   5659.2 -2791 3422.6 418.2 2802.2
    velocidad1   -6.0     5   -1.0  -0.5   -1.5
                       UT13   UT14      TR1     TR2
    ordenada   2.832000e+03 -411.2 -15722.0 -1105.4
    velocidad1 1.405114e-13    3.5     25.5    25.0
                        TR3   TR4    TR5          TR6
    ordenada    1.14600e+03 299.6 1943.4 6.840000e+02
    velocidad1 -5.11402e-14   2.0   -2.5 6.479414e-14
                 TR7           TR8     TR9    TR10
    ordenada   354.8  1.317000e+03 33284.6 -3742.6
    velocidad1   1.0 -3.475548e-14   -52.0     8.0
                        TR11   TR12    TR13
    ordenada    7.400000e+02 2205.4 -4542.6
    velocidad1 -8.018585e-14   -2.5     8.0
                        TR14
    ordenada    5.880000e+02
    velocidad1 -4.406498e-14


dput(A)
structure(list(UT1 = c(1213.79999999971, 1.50000000000047), UT2 = c(2634.80000000021, 
-2.50000000000033), UT3 = c(375.999999999959, 6.61595351840473e-14
), UT4 = c(-11080.8000000008, 20.0000000000013), UT5 = c(1711.80000000007, 
-2.50000000000012), UT6 = c(1738.99999999997, 5.03954433109254e-14
), UT7 = c(18.0000000000006, -9.15434469010036e-16), UT8 = c(5659.20000000026, 
-6.00000000000041), UT9 = c(-2791.00000000024, 5.00000000000039
), UT10 = c(3422.59999999968, -0.99999999999948), UT11 = c(418.199999999958, 
-0.499999999999932), UT12 = c(2802.20000000017, -1.50000000000028
), UT13 = c(2831.99999999991, 1.40511433073812e-13), UT14 = c(-411.200000000294, 
3.50000000000048), TR1 = c(-15722.0000000017, 25.5000000000028
), TR2 = c(-1105.40000000264, 25.0000000000043), TR3 = c(1146.00000000003, 
-5.11402035568996e-14), TR4 = c(299.599999999803, 2.00000000000032
), TR5 = c(1943.40000000013, -2.50000000000021), TR6 = c(683.99999999996, 
6.47941413997612e-14), TR7 = c(354.800000000011, 0.999999999999982
), TR8 = c(1317.00000000002, -3.47554781454658e-14), TR9 = c(33284.6000000025, 
-52.000000000004), TR10 = c(-3742.60000000058, 8.00000000000094
), TR11 = c(740.00000000005, -8.0185853149896e-14), TR12 = c(2205.40000000021, 
-2.50000000000034), TR13 = c(-4542.60000000042, 8.00000000000067
), TR14 = c(588.000000000027, -4.40649812201441e-14)), .Names = c("UT1", 
"UT2", "UT3", "UT4", "UT5", "UT6", "UT7", "UT8", "UT9", "UT10", 
"UT11", "UT12", "UT13", "UT14", "TR1", "TR2", "TR3", "TR4", "TR5", 
"TR6", "TR7", "TR8", "TR9", "TR10", "TR11", "TR12", "TR13", "TR14"
), row.names = c("ordenada", "velocidad1"), class = "data.frame")

我的目标是获得第二行( A[2,] )中数据的条形图，该条形图按组(包含 UT1、UT2... 和 TR 的 UT)在同一图中进行分割。我正在尝试做一些 ggplot 但一次又一次失败。我在基础图形中没有出现绘图错误或边距错误中的图层。

输出应该是这样的

我知道答案就在 reshape 包中，但我希望有另一种方法可以做到这一点。

提前谢谢您。

Answer 1

使用基本图形:

# convert the one-row data frame to a two-row matrix
m <- matrix(unlist(df[2, ]), nrow = 2, byrow = TRUE)

# plot
barplot(m, beside = TRUE, col = c("blue", "red"), names.arg = seq_len(ncol(m)))

可能添加图例:

legend("topright", legend = c("UT", "TR"), fill = c("blue", "red"))