小编liz*_*zie的帖子

如何将此数据重新格式化为宽格式？

species val    price
setosa  5.1     3
setosa  4.9     3
setosa  4.7     3
setosa  4.6     2

期望的输出:

species val1 val2 val3 val4 price1 price2 price3 price4
setosa  5.1  4.9  4.7  4.6    3       3      3      2

我试过从tidyr传播,但没有成功.

我试图在每个大写字母之前添加下划线,然后是小写.这是一个例子:

cases <- c("XrefAcctnoAcctID", "NewXref1AcctID", "NewXref2AcctID", "ClientNo")

我有这个:

[1] "XrefAcctnoAcctID" "NewXref1AcctID"  
[3] "NewXref2AcctID"   "ClientNo"     

我希望有这个:

"xref_acctno_acct_id" 
"new_xref1_acct_id"   
"new_xref2_acct_id"    
"client_no" 

我能走到这一步:

> tolower(gsub("([a-z])([A-Z])", "\\1_\\2", cases))
[1] "xref_acctno_acct_id" "new_xref1acct_id"   
[3] "new_xref2acct_id"    "client_no" 

但"new_xref1acct_id" "new_xref2acct_id"并不反映我想要的东西.

我正在尝试重现“以图像为节点的树状图”。

但是，我不想让所有节点都带有图像，而是想让一些节点带有图像，而其他节点带有常规圆圈。

有任何想法吗？

在这部分代码中是否需要更改：

nodeEnter.append("image")
  .attr("xlink:href", function(d) { return d.icon; })
  .attr("x", "-12px")
  .attr("y", "-12px")
  .attr("width", "24px")
  .attr("height", "24px");