How can i make automatic rotation using PCA to set the galaxies oriantation to be horizontal?

14 views (last 30 days)
Aya Ahmed on 7 Feb 2020
Commented: Adam Danz on 16 Feb 2020
How can i make automatic rotation using PCA to set the galaxies oriantation to be horizontal and cropping the image?
Knowing that the galaxies in the original images have different directions
I searched a lot and could not find any code

1 Comment

Adam Danz on 7 Feb 2020
If you're working with image data you could use the Orientation property of the regionprops() function to get the angle between the x-axis and the major axis of the galaxy ellipse.

Adam Danz on 7 Feb 2020
Edited: Adam Danz on 10 Feb 2020
This approach uses the Orientation property of the regionprops() function to get the angle between the x-axis and the major axis of the galaxy ellipse. It uses the orientation angle to rotate the image so the galaxy is horizontal.
There are several plots produced to show the steps of this process. They can be commented out in your final function/script. The image file I'm analyzing in this script is attached.
See the inline comments for detail.
% Identify file
file = 'PGC0001862.png'; % full path is better; see fullfile()
% Binarize the image
BW = imbinarize(rgb2gray(I));
% Filter out noise by isolating the object with the largest perimeter
BWfilter = bwpropfilt(BW,'perimeter',1);
% Show orginal and binary images for a sanity check
clf()
imshowpair(I,BWfilter,'montage')
% Get the orientation of the main object
stats = regionprops(BWfilter,'Orientation'); % 56.981 for this image
% rotate the image
IRot = imrotate(I, -stats.Orientation);
% Show image before/after rotation for sanity check
clf()
subplot(1,2,1)
imshow(I)
subplot(1,2,2)
imshow(IRot)
linkaxes(); % to match aspect ratios
% Crop the rotated image based on the limits of the binary image
BWfilterRot = imrotate(BWfilter, -stats.Orientation);
[rows, cols] = find(BWfilterRot);
BWcrop = BWfilterRot(min(rows):max(rows), min(cols):max(cols)); % only needed for sanity-check
Icrop = IRot(min(rows):max(rows), min(cols):max(cols),:);
% Show the cropped RGB and BW images
clf()
subplot(1,2,1)
imshow(Icrop)
subplot(1,2,2)
imshow(BWcrop)
linkaxes(); % to match aspect ratios
% Show original and final image
clf()
subplot(1,2,1)
imshow(I)
subplot(1,2,2)
imshow(Icrop)
linkaxes(); % to match aspect ratios

Aya Ahmed on 13 Feb 2020
ohhh Thank you very much, my dear Adam Danz, my God protect you <3 .
I will apply this code and tell you the results.
Aya Ahmed on 16 Feb 2020
Thank you very very much, it finally working
I applied it to all kinds of galaxies I have, and it worked
Adam Danz on 16 Feb 2020
Thanks for the feedback!

Image Analyst on 10 Feb 2020
One way that does not depend on selecting a threshold for your image is to use the radon transform. Look how I used it to rotate the football to the two image axes:
Basically the radon transform gets the projection of the image along a line perpendicular to the projection direction. This is the concept of CT - computed tomgraphy - and MRI. You can just read off the angle by looking at the maximum of the radon transform, then call imrotate() to do the rotation by that angle. See attached demo script. Adapt as needed.