小编Str*_*and的帖子

我想使用 TeX 来标记 3D 曲面图的轴。在 MathJax 的帮助下，我设法使用 TeX 作为标题。但不是轴。附件中包含我尝试做的示例。

x0 <- seq(1,100,by=0.1)
z0<-x0^2%*%t(x0)

library(plotly)
p <- plot_ly(
             x = x0, 
             y = x0,
             z = z0)%>%
     add_surface() %>%
     layout(
             title = TeX("\\text{Graph of } f(x,y)=x^2*y"),
             scene = list(
                           xaxis = list(title = "x"),
                           yaxis = list(title = "y" ),  
                           zaxis = list(title = TeX("f(x,y)=x^2*y"))
                         ))%>%
     config(mathjax = 'cdn')

 p

结果如下

如何将 TeX 也用于轴标签？$\cdot$此外，无论如何我可以在标题中使用*?

我实现了一个简单的 LSTM 和 GRU 网络来进行时间序列预测：

def LSTM1(T0, tau0, tau1, optimizer):
    model = Sequential()
    model.add(Input(shape=(T0,tau0), dtype="float32", name="Input"))
    model.add(LSTM(units=tau1, activation="tanh", recurrent_activation="tanh", name="LSTM1"))
    model.add(Dense(units=1, activation="exponential", name="Output"))
    model.compile(optimizer=optimizer, loss="mse")
    return model

def GRU1(T0, tau0, tau1, optimizer):
    model = Sequential()
    model.add(Input(shape=(T0,tau0), dtype="float32", name="Input"))
    model.add(GRU(units=tau1, activation="tanh", recurrent_activation="tanh", reset_after=False, name="GRU1"))
    model.add(Dense(units=1, activation="exponential", name="Output"))
    model.compile(optimizer=optimizer, loss="mse")
return model

LSTM 模型的参数明显多于 GRU 模型：

_________________________________________________________________
Layer (type)                 Output Shape              Param #   
=================================================================
LSTM1 (LSTM)                 (None, 5)                 180       
_________________________________________________________________
Output (Dense)               (None, 1)                 6         
=================================================================
Total params: 186
Trainable params: 186 …

我得到了一个很大的data.table，它具有不同类型的列：例如数字或字符。例如

 data.table(name=c("A","A"),val1=c(1,2),val2=c(3,3),cat=c("u","v"))

       name val1 val2 cat
   1:    A    1    3   u
   2:    A    2    3   v

结果，我只需要data.table和列，其中两行之间的条目是不同的：

 data.table(val1=c(1,2),cat=c("u","v"))

       val1 cat
   1:    1   u
   2:    2   v

我得到了一个数据集，想将一个变量绘制为点，将其他变量绘制为具有不同线型（每个变量具有不同颜色）的线。

 a <- c(10:20)
 df <- data.frame(a=a,b=a,c=a*a/10,d=10*sqrt(a))
 df_melt <- reshape2::melt(df,id.vars='a')

 ggplot(df_melt, aes(x=a,y=value,colour=variable,linetype=variable,shape=variable))+
           geom_line(data=subset(df_melt,variable == "b"))+
           geom_line(data=subset(df_melt,variable == "c"))+
           geom_point(data=subset(df_melt,variable == "d"))

这现在产生了想要的情节：

然而，图例现在显示所有三个变量的线型和形状，尽管并非所有变量都实际显示它们。

如何相应地删除线型或形状以使图例与绘图显示一致？