小编Sci*_*ist的帖子

如何在R序列美人鱼图中添加横向融合箭头？在下面的示例中:

library(DiagrammeR)
mermaid("
graph TB
    A[GE Solution]-->C{1:1}
    B[GA Solution]-->C{1:1} 
    C{1:1}-->D[Stir 10 mins at 500 r/min]
    D[Stir 10 mins at 500 r/min]-->E[Homogenisation at 10000 r/min]
    ")

我怎么能像下面这样生产？

我知道这很简单，但我找不到直接的解决方案。

如何在不使用引号的情况下告诉解释器将矢量内容读取为字符串？例子：

vector<-c("AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG", "HHH")
vector
[1] "AAA" "BBB" "CCC" "DDD" "EEE" "FFF" "GGG" "HHH"

如果我想用以下方法构建相同的对象怎么办：

vector<-c(AAA, BBB, CCC, DDD, EEE, FFF, GGG, HHH)
Error: object 'AAA' not found

我们有像“to.character”这样的函数吗？这对我有很大帮助。提前致谢，对于幼稚的问题很抱歉。

I am still new to R. I agreed to help a friend replot his graphs however one of his plot designs is proving quite hard to reproduce. This is because he inserted a Y-axis break followed by a scale alteration on a barplot. This is illustrated by the example picture below.

Unexpectedly this is proving hard to implement. I have attempted using:

barplot() #very hard to implement with all elements, couldn't make it

gap.barplot() #does not allow for grouped barplots …

我找不到如何在节点内的长标题中插入换行符。例如：

library(DiagrammeR) 
mermaid("
graph TB
     A[GE Solution]-->C{ }
     B[GA Solution]-->C{ } 
     C{ }-->D[Stir 10 mins at 500 r/min]
     D[Stir 10 mins at 500 r/min]-->E[Homogenisation at 10000 r/min]
     E[Homogenisation at 10000 r/min]-->F(Stir 10 min 450 r/min Complex coacervation)
      ")

注意节点F太长。我该如何使其成为……

|Stir 10 min 450 r/min|
|Complex coacervation |

注意\ n不起作用。

为了保持我的脚本记录干净，我想用 rep() 输出向量输入而不是链中的重复值。请参阅下面的示例，使用 dput()：

v<-c(rep(1,2), rep(2,4), rep(NA,5))
dput(v)
>c(1, 1, 2, 2, 2, 2, NA, NA, NA, NA, NA)
unknown_function(v)
>c(rep(1,2), rep(2,4), rep(NA,5))

当然微不足道，但我找不到任何简单的解决方案。请对 unknown_function() 提出建议？

我遇到了一个应该很简单的问题.可能是一个正则表达式问题.我是新手.请考虑一个字符串向量,例如:

species_location<-c('Homo_sapiens_Lausanne_Switzerland', 'Solenopsis_invicta_California_US', 'Rattus_novaborensis_Copenhagen_Denmark', 'Candida_albicans_Crotch_Home')

我想最终得到一个新的物种矢量,看起来像:

c(Homo_sapiens, Solenopsis_invicta, Rattus_novaborensis, Candida_albicans)

目前我正在使用以下功能:

str_extract_all(species_location,'^(\\S+?)_(\\S+?)_')

然而,它返回前三个单词而不是我为它设计的单词.我无法弄清楚为什么.请任何人帮忙解释一下吗？谢谢

更新:对于路过的人,上面输入的代码可以正常工作,除了我的R OS for Mac OS 3.0.0,R.app 1.60.我仍然不知道那里有什么问题,但可能有兴趣让别人检查.将尝试在这里添加图片.

我很难理解 R 中绘图表的工作原理。我不是一个经验丰富的程序员，因此我的问题可能看起来很天真。

请考虑以下数据框：

data<-data.frame(
SeqName=c("1", "2", "3", "4", "5", "6"),
Length=c("440", "511", "1087", "686", "867", "632"),
Cys=c("3", "2", "2", "2", "2", "4"),
NT=c("[NA]", "[B]", "[B]", "[B]", "[B]", "[B]"),
NR=c("[NA]", "[B][M]", "[B]", "[B][M]", "[B][M]", "[NA]"),
RefSeq=c("[NA]", "[B][M]", "[B]", "[B][M]", "[B][M]", "[NA]")
)

我可以使用以下命令创建等效的绘图表：

plot_ly(
    type = 'table',
    header = list(
        values = list(list('<b>SeqName<b>'),
                      list('<b>Length<b>'),
                      list('<b>Cys<b>'),
                      list('<b>NT<b>'),
                      list('<b>NR<b>'),
                      list('<b>RefSeq<b>'))),
        cells = list(values = list(
        c("1", "2", "3", "4", "5", "6"),
        c("440", "511", "1087", "686", "867", "632"),
        c("3", "2", "2", "2", "2", …