Question

我有一个嵌套列表（tukey_full），其中包含我运行的各种TukeyHSD测试的结果，并且希望将列表中每个对象的名称作为字幕包含在图中。我已经通过使用

成功完成了绘图

public class MyListAdapter extends RecyclerView.Adapter<MyListAdapter.MyViewHolder> {

    private List<Composer> composerList;
    private int selectedPos = RecyclerView.NO_POSITION;
    private MainActivity mMainActivityContext;

    private MainActivityViewModel mMainActivityViewModel;

    public class MyViewHolder extends RecyclerView.ViewHolder {

        private static final String TAG = "UI Output";
        private String selectedText;
        public TextView mComposerView;

        public MyViewHolder(View v) {
            super(v);
            mComposerView = (TextView) itemView.findViewById(R.id.composer_name);
        }
    }

    public MyListAdapter(Context context, List<Composer> composerList){
        mMainActivityContext = (MainActivity) context;
        this.composerList = composerList;
    }

    @Override
    public MyViewHolder onCreateViewHolder(ViewGroup viewGroup, int viewType) {
        View mComposerView = LayoutInflater.from(viewGroup.getContext()).inflate(R.layout.composer_layout,viewGroup,false);
        //mComposerView.setOnClickListener(mClickListener);
        return new MyViewHolder(mComposerView);
    }

    @Override
    public void onBindViewHolder(MyViewHolder holder, int position){
        Composer mComposer = composerList.get(position);
        holder.mComposerView.setText(mComposer.getName());
        holder.itemView.setSelected(selectedPos == position);
    }

    @Override
    public int getItemCount(){
        if(composerList != null){
            return composerList.size();
        } else {
            return 0;
        }
    }
}

和

 lapply(tukey_full, plot)

但是，我不知道如何在字幕中添加对象的名称，就像使用名称功能一样，我可以通过

看到

 for(i in tukey_full) {
      plot(i)
    }

我尝试使用

> names(tukey_full)
 [1] "protein_6289_03860"                                            
 [2] "protein_6289_01870"                                            
 [3] "protein_2945_03380_5751_03109"                                 
 [4] "protein_6289_01021"                                            
 [5] "protein_6289_03009"

和

  for(i in tukey_full) {
  plot(i, sub=(i))

通过打印列表，我可以为每个条目获取以下内容之一

for(i in tukey_full) {
  plot(i, sub=names(i))
}

然后粘贴（print（））得到我

$protein_6289_01751
  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = .x ~ datos_significativos_unknown$cepas)

$`datos_significativos_unknown$cepas`
               diff       lwr        upr     p adj
A-C   -5.1771274 -8.357472 -1.9967829 0.0025429
B-C -4.8750794 -8.770190 -0.9799687 0.0150836
A-B   0.3020481 -2.878296  3.4823926 0.9653298

但是这些似乎不起作用。有任何想法吗？谢谢。

Answer 1

你真的很亲密！

c <- 1
for(i in tukey_full) {
    plot(i, sub=names(tukey_full[c]))
    c <- c + 1
}

Answer 2

如果您想使用lapply，可以尝试以下操作：

lapply(1:length(tukey_full), function(x) plot(tukey_full[[x]], sub=names(tukey_full)[x]))

包含列表中的对象名称以及“ for”循环图中的tukey测试结果

2 个答案: