如何从R图中导出X和Y图值？

Question

使用R中的eha和survival包，我使用以下代码创建下面的生存图：

with(dataset, plot(Surv(enter, exit, event), ylim= c(0.87, 1.0), fn = "surv", strata = Gender))

如何导出该图的每一行的X和Y值，而不是导出图的图像？我尝试使用以下代码，但它只创建一个空白的.csv文件：

write.table((with(dataset, plot(Surv(enter, exit, event), ylim= c(0.87, 1.0), fn = "surv", strata = Gender))), file="testfit.csv", sep=',')

提前感谢您的帮助。

在次要说明中，是否有人碰巧知道如何使这个情节在ggplot2中看起来更好？

Answer 1

您可以使用gridGraphics包将绘图转换为grob，然后从grob对象中抓取点。我喜欢这个解决方案，因为它适用于各种各样的问题。

使用创建的图表here作为示例图表：

<div class="title">Change Password</div>
<div class="password">
  <%= profile_error_messages_for(@profile) %>

  <%= form_for :user, url: change_password_path do |f| %>
      <%= hidden_field_tag 'attribute', 'password', id: nil %>
      <div class="input-box">
        <%= label_tag(:current_password, 'Current Password') %>
        <%= f.password_field :current_password, class: 'form-control input-md input-width-large' %>
      </div>
      <div class="input-box">
        <%= label_tag(:password, 'New Password') %>
        <%= f.password_field :password, class: 'form-control input-md input-width-large' %>
      </div>
      <div class="input-box">
        <%= label_tag(:password_confirmation, 'Password Confirmation') %>
        <%= f.password_field :password_confirmation, class: 'form-control input-md input-width-large' %>
      </div>
      <%= submit_tag 'Change Password', class: 'btn btn-success btn-md input-width-large' %>
  <% end %>
</div>

我注意到你的情节按性别分层......确保你为每个性别提取正确的分数子集。