Question

これは、階層レベルを表示する優れたパッケージです。ここで彼はツールチップに画像を使用している以下のコードでcollapsibleTree Package

の提供文書あたりとして

。

org$tooltip <- paste0(
org$Employee, 
"<br>Title:", 
org$Title, 
"<br><img src='https://source.unsplash.com/collection/385548/150x100'>" 
) 

collapsibleTreeNetwork(
org, 
attribute = "Title", 
fill = "Color", 
nodeSize = "leafCount", 
tooltipHtml = "tooltip" 
) 

ここでは、単一の画像がすべてのバブルで示されています。私のテーブルで

iは、各従業員一人当たりの画像の列を持っています。

ここで、例：A社員 - >画像Aが表示されます。 同様に、すべての従業員に表示されます。

可能ですか？

任意の提案はかなりの量になります。

おかげ モハンV

Answer 1

ここ

単一の画像は、すべてのバブルで示されています。 [...] を尊敬する従業員バブルに動的に表示することはできますか？パッケージ作者のexample on GitHubに基づいて

は、ここでは、ノードごとに異なる写真付き一つだ：//：

library(collapsibleTree) 
org <- data.frame(
    Manager = c(
    NA, "Ana", "Ana", "Bill", "Bill", "Bill", "Claudette", "Claudette", "Danny", 
    "Fred", "Fred", "Grace", "Larry", "Larry", "Nicholas", "Nicholas" 
), 
    Employee = c(
    "Ana", "Bill", "Larry", "Claudette", "Danny", "Erika", "Fred", "Grace", 
    "Henri", "Ida", "Joaquin", "Kate", "Mindy", "Nicholas", "Odette", "Peter" 
), 
    Title = c(
    "President", "VP Operations", "VP Finance", "Director", "Director", "Scientist", 
    "Manager", "Manager", "Jr Scientist", "Operator", "Operator", "Associate", 
    "Analyst", "Director", "Accountant", "Accountant" 
) 
) 

# Add in colors and sizes 
org$Color <- org$Title 
levels(org$Color) <- colorspace::rainbow_hcl(11) 

org$tooltip <- sprintf(" 
    %s<br>Title: %s<br><img src='%s'>", 
    org$Employee, 
    org$Title, 
    paste0("https://github.com/twitter/twemoji/blob/gh-pages/72x72/1f19", c(1, 1:9, letters[1:6]), ".png?raw=true") 
) 

collapsibleTreeNetwork(
    org, 
    attribute = "Title", 
    fill = "Color", 
    nodeSize = "leafCount", 
    tooltipHtml = "tooltip" 
)