我试图控制Shiny中的sliderInput的大小和外观.具体来说,我已经使它变得更大更宽,并且改变了滑块的背景颜色.我想使滑块的末端成为正方形,删除滑块下方出现的刻度线,然后将值(1:10)放在条形体内的白色中.我试图操纵CSS,但只取得了一定的成功.滑块更大更宽,但是条形的一侧是方形的,我无法移动文本.显然,我的CSS技能低于标准.我已经咨询了各种教程,但无法破解它们.非常感谢任何帮助,因为我真的被困住了.
这是我尝试过的:
ui <- fluidPage(
tags$style(HTML(".irs-bar {width: 100%; height: 25px; background: black; border-top: 1px solid black; border-bottom: 1px solid black;}")),
tags$style(HTML(".irs-bar-edge {background: black; border: 1px solid black; height: 25px; border-radius: 15px 15px 15px 15px;}")),
tags$style(HTML(".irs-line {border: 1px solid black; height: 25px;}")),
tags$style(HTML(".irs-grid-text {font-family: 'arial'; color: black}")),
tags$style(HTML(".irs-max {font-family: 'arial'; color: black;}")),
tags$style(HTML(".irs-min {font-family: 'arial'; color: black;}")),
tags$style(HTML(".irs-single {color:black; background:#6666ff;}")),
uiOutput("testSlider")
)
server <- function(input, output, session){
output$testSlider <- renderUI({
sliderInput(
inputId="test",
label=NULL,
min=1,
max=10,
value=5,
step = 1,
width='100%'
) …我有三种不同的矩阵:
m1, which has 12 rows and 5 columns;
m2, which has 12 rows and 4 columns; and
m3, which has 12 rows and 1 column.
我试图从中构建一系列3列矩阵(p1到p20),这样在每个p矩阵中:
p[,1] is taken from m1,
p[,2] is taken from m2, and
p[,3] is taken from m3.
我希望这个过程是详尽无遗的,因此我创建了所有20个可能的3列矩阵,因此采样m1,m2和m3(我已经尝试过的解决方案)似乎不起作用.
我尝试了六个不同的for循环,但没有一个完成我想要的,我玩了一些排列函数,但无法弄清楚如何使它们在这种情况下工作.
最终,我正在尝试为未知数量的输入矩阵执行此操作,并且因为我还是R的新手,所以我没有其他关于从哪里开始的想法.任何论坛可以提供的帮助将不胜感激.
我使用text2vec从专有文本数据集合中生成自定义单词嵌入,其中包含许多行业专用术语(因此像谷歌那样的库存嵌入将无效).这些类比很有用,但是我很难应用嵌入来评估新数据.我想使用我已经训练过的嵌入来理解新数据中的关系.我正在使用的方法(如下所述)似乎令人费解,而且速度很慢.有更好的方法吗？也许我已经错过了一些内置于包装中的东西？
这是我的方法(由于我使用专有数据源,我可以生成最接近可重现代码的方法):
d =包含新数据的列表.每个元素都是类字符
vecs =从text2vec的手套实现中获得的单词矢量化
new_vecs <- sapply(d, function(y){
it <- itoken(word_tokenizer(y), progressbar=FALSE) # for each statement, create an iterator punctuation
voc <- create_vocabulary(it, stopwords= tm::stopwords()) # for each document, create a vocab
vecs[rownames(vecs) %in% voc$vocab$terms, , drop=FALSE] %>% # subset vecs for the words in the new document, then
colMeans # find the average vector for each document
}) %>% t # close y function and sapply, then transpose to return matrix w/ one row for each statement …