R размер участка маркера в легенде

Question

У меня есть фрейм данных (df), например:

        Axis.1       Axis.2       Axis.3    SName              SType
1  -0.12668757 -0.015688555 -0.146190282      CL3               Soil
2  -0.14942011 -0.007115711 -0.164580018      CC1               Soil
3  -0.10430866 -0.053694979 -0.116715380      SV1               Soil
4   0.28545213  0.025774519  0.075782174  M31Fcsw              Feces
5   0.24417265  0.023622452  0.065248059  M11Fcsw              Feces
6  -0.09259912 -0.327627535 -0.300884012  M31Plmr               Skin
7  -0.09431983 -0.233650098 -0.219685478  M11Plmr               Skin
8  -0.09956585 -0.338881970 -0.302081366  F21Plmr               Skin
9  -0.05982523 -0.181410880 -0.115865238  M31Tong             Tongue
10 -0.08759859 -0.254806231 -0.198560010  M11Tong             Tongue
11 -0.09022088 -0.027122872 -0.014542578 LMEpi24M         Freshwater
12 -0.10123119 -0.013084078  0.003527549 SLEpi20M         Freshwater
13 -0.33762664  0.459422092 -0.081005667   AQC1cm Freshwater (creek)
14 -0.34360518  0.476366082 -0.089236859   AQC4cm Freshwater (creek)
15 -0.35647571  0.488716241 -0.099718955   AQC7cm Freshwater (creek)
16 -0.11746008 -0.060773789  0.389131949      NP2              Ocean
17 -0.11939302 -0.051643880  0.370696168      NP3              Ocean
18 -0.14712714 -0.014417362  0.407108665      NP5              Ocean
19 -0.06240849 -0.156741082  0.180196757  TRRsed1 Sediment (estuary)
20 -0.07889670 -0.185907768  0.240988918  TRRsed2 Sediment (estuary)
21 -0.05010818 -0.174393546  0.251352855  TRRsed3 Sediment (estuary)
22  0.29598048  0.037559961  0.072808084     TS28              Feces
23  0.26925013  0.037682174  0.057076305     TS29              Feces
24  0.50711633  0.184918976 -0.084097223    Even1               Mock
25  0.50588194  0.180904908 -0.090775170    Even2               Mock
26  0.51102449  0.181992932 -0.089979244    Even3               Mock

Если я создаю трехмерный график с использованием plotly (R) со следующим кодом:

plotly::plot_ly(
    x=df[,1],
    y=df[,2],
    z=df[,3],
    type="scatter3d",
    mode="markers",
    marker=list(size=3, opacity = 1),
    color=df$SType,
    colors=MyPalette, # personal colors 
    hovertemplate = paste(df$SName)) %>%   

    plotly::layout(title ="Title Plot",
                   legend = list(font = list(size = 15)),
                   scene = list(xaxis = list(title = colnames(df[1]) ),
                                yaxis = list(title = colnames(df[2]) ),
                                zaxis = list(title = colnames(df[3]) ))
    )

Я получил заговор, который представляет одинаковый размер маркера на заговоре и размер создателя в легендах, поэтому, если я изменю:

marker=list(size=3, opacity = 1) 

на

marker=list(size=7, opacity = 1)

размер в ярлыках Также измените, проблема в том, что когда у меня есть фрейм данных большего размера (~ 1000 вместо 26), я должен использовать маленький размер, например 3, но метки выглядят маленькими !!!

мои вопросы:

как я могу изменить размер маркера внутри графика, но сохранить фиксированный размер (например, всегда 10) маркера в легенде? ,

и как мне добавить заголовок в верхнюю часть легенды?

Большое спасибо !!!!