Question

我对具有不同观察者/观察者组的一个物种进行了多次观察，并希望创建所有唯一观察者的列表。我的数据如下：



    <DIV id="show">
    <p>CONTINENT - COUNTRY Linkage: </p><BR><BR><button 
    onClick="Show_Pair_In_Alert("AFRICA_EAST","Comoros")">Show</button> <BR>
    <button onClick="Show_Pair_In_Alert("AFRICA_EAST","Eritrea")">Show</button>
    <BR>
    <button onClick="Show_Pair_In_Alert("AFRICA_EAST","Kenya")">Show</button> 
    <BR>	
    </DIV>

我的输出应返回所有唯一观察者的列表-如此：

    <DIV id="show">
    <p>CONTINENT - COUNTRY Linkage: </p><BR><BR><button 
    onClick="Show_Pair_In_Alert("AFRICA_EAST","Comoros")">Show</button> <BR>
    <button onClick="Show_Pair_In_Alert("AFRICA_EAST","Eritrea")">Show</button>
    <BR>
    <button onClick="Show_Pair_In_Alert("AFRICA_EAST","Kenya")">Show</button> 
    <BR>	
    </DIV>

我尝试使用以下命令对C列中的数据进行子字符串化，但仅返回观察者的唯一组合。

{% with "<a href='" url 'MyView' pk=foo.bar.pk "'>"|add:foo.bar|add:"</a>" as foobar %}

Answer 1

我们可以在“观察者”上使用separate_rows，获取按“物种”分组的{{1}}行，以及distinct“观察者”

paste

Answer 2

您快到了，只需unlist，然后再执行unique：

all_observers <- unique(unlist(strsplit(as.character(data$observer), ",")))

Answer 3

您也可以使用scan()

unique(scan(text=data$observer, what="", sep=","))
# Read 14 items
# [1] "A" "B" "E" "D" "C" "F"

在R中：在以逗号分隔的列中找到所有唯一值

3 个答案: